my $line = 0;
while (<>) {
    s/^([\smy]*\$\w+\s+\.?=\s+)['"](.*?)\\?n?['"];/$1<<END;\n$2/
        unless $line > 0;
    s/^\s*\$\w+\s+\.=\s+['"](.*?)\\?n?['"];$/$1/g;
    s/\\"/"/g;
    $line++;
    print $_;
}
print "END\n";