弁当&Perl回答例

あまりにも昼食代がかかるので。
今日から弁当に切り替えです（／−＼）
朝いつもより15分前に起きて、せっせと冷蔵庫のものと
昨日の残り物をつめはじめる。
基本的に料理はお酒を飲みながらやるんですが。
さすがに朝からは飲めない(ノ_<。)

そして。お昼時間・・・そんなに驚かなくても（＝ｗ＝；
めちゃめちゃ驚かれたしｗ

研修のPerlの回答が欲しいという方が多かったので
一応回答例を作ってみました。
http://www.w1ng.com/perl.tar.gz
一応コメントとか問題もソースに入れておいたので
必要な方どうぞ