Select Code to Download

@array2 = grep {$_ =~ s/\b$stopword\b//g } @array1;

#!/usr/bin/perl

...

print join( ' ', @list );
print "\n";