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