if ($file2 =~ /complex\.\d{2}/)
{
$pre = $`
$line = ($pre =~ s/\n/\n/g);
print "$line";
}