for ($x=0; $x <= $#all; $x++)
{
if($line =~ /@all[$x]/g)
{
print F2 $line;
}