htmltodatをいじってる間に正規表現書くならこう書いたほうが早いと思ってしまいました。相変わらず需要があるのかよく分かりませんが #!/usr/bin/perl while(<>){ if(m#<DIV[^>]*>(?:<A[^>]*>)?([0-9]+).+?<span class="handle">(?:<A HREF="mailto:(.+?)">)(.*?)(?:</A>)</span>：(.*?)</DIV><DIV CLASS=\"RES\">(.*)</DIV>#i){ #メール欄あり print "$3<>$2<>$4…