#!/usr/bin/perl -l

use strict;
use warnings;

$_ = "iowq john stepy andy anne alic bert stepy anne bert andy step alic andy";

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