2:24 >perl -wE "for (qw[cat catastrophe]) { say qq[$_: matches] if /cat/; }"
cat: matches
catastrophe: matches

 2:26 >perl -wE "for (qw[cat catastrophe]) { say qq[$_: matches] if /\bcat\b/; }"
cat: matches

 2:26 >