Select Code to Download

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

a dog

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

cat