>>990
my $str = <<'EOS';
<td width="35%" align="right"><div style="font-size:12px">37台</DIV></td>
<td width="35%" align="right"><div style="font-size:12px">400円</DIV></td>
<td width="40%" align="right"><div style="font-size:12px">1076個</DIV></td>
<td width="40%" align="right"><div style="font-size:12px">1/27</DIV></td>
EOS

while ($str =~ m|(?<=>)([^<]+)(?=</DIV>)|g) {
　　my $num = $1;
　　print $num =~ /^([0-9]+)[^0-9]*\z/ ? "$1 (単位)\n"
　　　　　: $num =~ /([0-9]+)\z/ 　 　　　 ? "(単位) $1\n"
　　　　　: 　　　　　　　　 　　　　　　　　　　　 "無し\n"
　　;
}

print $str = join("\n", <<'EOS' =~ /\bsrc="([^"]+)"/g) . "\n";
<img src="imgview.cgi?p=129900905271010/IMG090527/E/IAD0826M.PNG"></td>
<img src="imgview.cgi?p=129900905280910/IMG090528/E/IAD0826M.PNG"></td>
<img src="imgview.cgi?p=129900905291900/IMG090529/E/IAD0826M.PNG"></td>
EOS

while ($str =~ m|\?p=[0-9]{5}([0-9]{10})/|g) {
　　my @date = $1 =~ /[0-9]{2}/g;
　　printf "%d年%d月%d日 %d時%d分\n", $date[0] + 2000, @date[1..4];
}