Select Code to Download

use strict;
use warnings;
...
   @list = grep {!/\Q$a/} @list;
}
print $w;

use strict;
use warnings;
...
my $w="kandabbbc";
$w=~s/$re//g;
print $w;