Select Code to Download

#!/usr/bin/perl -l

...
$_ = "iowq john stepy andy anne alic bert stepy anne bert andy step al
+ic andy";

print "$& => ", s/\b$&\b//g while /\w+/;

iowq => 1
john => 1
...
alic => 2
bert => 2
step => 1