Matching a Scalar Variable

[Mazhar]

Hi Folks,
          I have a requirement where in i have to read a file and then store
the line by line items into a scalar variable. And then ihave ti match the
same. i am providing you a sample code. Just help how can i match a string
where in i should pass a scalar variable value.

PGM

Open (FILE1,">one Fuile");
Open (FILE,">Second File");

while (<FILE1>)
{
        $line1 = $_;
        while (<FILE>)
        {
                $line = $_;
                if ($line =~ /(.*)$line1(.*)/)  (Here i have to check the
value which i get from a file but it is not searching)
                {
                         print "Got the String";
               }
     }
}

Please reply to me at the earliest

Regads
mazhar