Perlってどうよ？コミュのどうも！はじめまして

参考ソースではないですが、
自分の経験から〜

print test if <条件文> ;
$_ while <条件文> ;
perlらしく条件文を右辺に持っていくとか？

できる限り処理を一行にまとめ、
複雑な処理は関数又はクラス化する。
作成する関数は処理を少なくし、1モジュール1機能に留めておく。
後自分で作成する時に難しいと感じたらすぐ易しいロジック又は無理であれば見やすいロジックに考え直すことかな？
参考までに２ｃｈ風味な掲示板ロジック
今後ともよろしくお願いします。

#-----------------------------------------------
$img = '../img/test.gif';
#デバック用変数
$debug = "debug";
#ログ用ファイル名
$log_file = '../log/bbs.log';
#ロック用ファイル名
$lock_file = 'lock.testfile';
#このスクリプトのファイル名及びパス
$script_path = $0;
# incluedファイルPATH
require "../sub/jcode.pl";
# $in{$name}この形式で戻ってきます。GET,POST対応
&ReadGetPostData;
$bbsflag = $in{'bbsrf'};
# リモートホストを検索
$remotehost = &getremotehost;
# 日付取得
$time = &time_now;
#ロック用ファイル名
&LockFile($lock_file);
#ログファイル
&make_logfile($log_file);
#ロック用ファイル名
&unLockFile($lock_file);
#カテゴリーファイルPATH
$category = "./inidata/Category.txt";
#カテゴリーHTML
if( $bbsflag eq "f1" ){
#HTMLファイルを指定すれば読み込んで変数にいれてくれる
$Table_tags = &Read_File_tablechange($category);
&make_f1_hedder;
&make_f1_html($Table_tags);
&make_f1_footer;
&MakeHtml($tag_data);
exit;
#BBSメインHTML
}elsif( $bbsflag eq "f2" ){
if( $in{"id"} eq "999999"){
&make_f2_hedder;
&make_f2_html;
&make_f2_footer;
&MakeHtml($tag_data);
exit;
#スレッド一覧読み込み
}else{
&make_bbs;
exit;
}
#BBSレス一覧読み込み
}elsif( $bbsflag eq "f3" ){
&make_bbs_main;
exit;
#BBS書き込み
}elsif( $bbsflag eq "wbbs" ){
&wbbs_sub;
&make_bbs_main;
exit;
#スレッド書き込み
}elsif( $bbsflag eq "wsled" ){
#スレッド作成フォーム表示モード
if( $in{"mode"} == 0 ){
&sled_form;
exit;
#スレッド作成モード
}else{
&wsled_sub;
&make_bbs;
exit;
}

はじめまして。初書き込みです。
私もSugarさんとほぼ同じです。
違うとすれば mode_a ではなく phase_01
(って同じジャン)

元々はCOBOLで電文型の処理してましたので、
こういうまとめ方に馴染んでます。