in reply to qr//x and \# weirdness (AS 5.8?)
my $re_e = qr[\w+ \# f]x; print $re_e; __END__ (?x-ism:\w+ \# f ) [download]