@strs = ("171-0022" , "0000000" , "1710031" , "1234567890");
$i = 0;
foreach( @strs ){
$a = $_;
if(s/^(\d{3})(\d{4})$/\1-\2/){
print "$a を $_ に置換しました。\n";
}
if(/^\d{3}-\d{4}$/){
$postcodes[$i] =$_;
$i++;
}
}
if( $i > 0){
print "\n郵便番号\n";
foreach( @postcodes){
print $_ . "\n";
}
}
exit;
上のソースコードをコピー＆ペーストしてソースファイルを作成し、perlで実行して動作結果を確かめてみましょう。