#!/usr/bin/perl

$a="#!/usr/bin/perl\n\n\$a=\"q\";\n\n\$b=\$a; \$b=~s/\\\\/\\\\\\\\/g; \$b=~s/([\"\\\$])/\\\\\$1/g; \$b=~s/\\n/\\\\n/g;\n\$a=~s/q/\$b/;\n\nprint \$a;\n";

$b=$a; $b=~s/\\/\\\\/g; $b=~s/(["\$])/\\$1/g; $b=~s/\n/\\n/g; 
$a=~s/q/$b/;

print $a;
