Select Code to Download

my $patternlist = join( "\t", @patterns );

...
{
   print $input.$1;
}

my $patternlist = join( "\t", @patterns );

...
{
   print $input;
}