Select Code to Download

my @find = $line[$i] =~ /\babc10\b/g;

use Modern::Perl;

...
say "String:\n$str\n\nContains:";

say "$_: " . @{ [ $str =~ /\b$_\b/g ] } for @patterns;

String:
abc9 abc6 abc2 abc7 abc3 abc10 abc2 abc10 abc1 abc3 abc2 abc1 abc4 abc
+4 abc2 abc4 abc8 abc10 abc10 abc7 abc3 abc10 abc6 abc1 abc8
...
abc8: 2
abc9: 1
abc10: 5