use strict;
use warnings;
my @list= qw(a b c a c);
my $re = join '|', @list;
my $w="kandabbbc";
$w=~s/$re//g;
print $w;