$line .= $fh->getline while $line =~ m{\\$};