c:\@Work\Perl>perl -wMstrict -le
"my $string = 'xxx foo{ yyy';
 print 'match' if $string =~ /foo{/;
"
match