use strict;
use warnings;

my $s = 'a foo about foo above foo across foo after foo afterwards';
$s =~ s/\ba\b|\babout\b|\babove\b|\bacross\b|\bafter\b|\bafterwards\b//g;

print "$s\n";
__END__
 foo  foo  foo  foo  foo