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