> perl -e '$a="abcd"; print "yes\n" if $a =~ "^abc";'
yes
> perl -e '$a="abcd"; print "yes\n" if $a =~ "^yyy";'
>