$ perl -E'
for ("cat","a dog") { say if /\ba/; }
'

##</code><code>##

a dog

##</code><code>##

$ perl -E'
for ("cat","a dog") { say if /\Ba/; }
'

##</code><code>##

cat