my $s = '<blah>red</blah><blah>white</blah><blah>blue</blah>';

while ($s=~/<blah>(.*?)<\/blah>/)
{   # this RE isn't right...
    print "\n$1";sleep 1;
}