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

if( $patternlist =~ /\t$input(.*)\t/ )
{
   print $input.$1;
}