simple pattern vs Perl regex