Select Code to Download

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

...
{   # this RE isn't right...
    print "\n$1";sleep 1;
}