my $s = '<blah>red</blah><blah>white</blah><blah>blue</blah>';
print $s, $/;
while (/<blah>(.*)<\/blah>/) {   # this RE isn't right...
    print $1, $/;
}