@array = <FILE>;
@pattern = <FILE2>;
local $" = '|';
foreach $line(@array) {
    if ($line =~ m/@pattern/) {
        print $line;
    }
}