$find->stream(\*DATA, sub { " ... $_[1]<b>$_[2]</b>$_[3] ..." });
while (my $t = $find->match) { print "[[$t]]\n" }