Help for this page
#!/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