wlmb#Perl @PerlWChallenge 366 Task 1: Count Prefixes
#noxp
```
perl -E '
for my($a, $s)(@ARGV){say"$a; $s -> ",0+grep{$s=~/^$_/}split/,\s*/,$a;}
' "a, ap, app, apple, banana" apple \
"cat, dog, fish" bird \
"hello, he, hell, heaven, he" hello \
", code, coding, cod" coding \
"p, pr, pro, prog, progr, progra, program" program
```
#noxp
```
perl -E '
for my($a, $s)(@ARGV){say"$a; $s -> ",0+grep{$s=~/^$_/}split/,\s*/,$a;}
' "a, ap, app, apple, banana" apple \
"cat, dog, fish" bird \
"hello, he, hell, heaven, he" hello \
", code, coding, cod" coding \
"p, pr, pro, prog, progr, progra, program" program
```