playing with regex in Perl