open (DAT, "<./1328201548.txt");
@res = <DAT>;
@kuhaku = grep(/<br> <>/, @res);

ほら