open (FILE1,'< chandu.txt');
open (FILE2,'+< guidpair.txt')  or die("Can't open guidpair: $!"); 
while($b=<FILE1>)

{
print $b;
$file=$b;
while($a=<FILE2>)
{
if($a=~m/onclick/ && $a=~m/\w+-\w+-\w+-\w+\s\D/)
{
print $a;
seek(FILE2,-127, 1);
$a=~s/\w+-\w+-\w+-\w+\s\D/$file/;
print FILE2 "$a \n";
}
}
}
close(FILE1);
close(FILE2);