Select Code to Download

my $pattern = '\b(?:' . join('|', @tokens) . ')\b';

my $pattern = join('|', @tokens);

my $pattern = '^(?:' . join('|', @tokens) . ')[^a-zA-Z]*$';

#!/usr/local/bin/perl
use strict;
...
}
close($infile);
close($outfile);