my $s = '<blah>red</blah><blah>white</blah><blah>blue</blah>';
print $s, $/;
print $1, $/ while $s =~ /<blah>(.*?)<\/blah>/g;