#!/usr/bin/perl

$B = '$slash = "\x5C" ;
print "#!/usr/bin/perl\n\n" ;
$C = $B ;
$C =~ s/\'/$slash\'/g ;
print "\$B = \'$C\' ;\n" ;
print "$B\n" ;' ;
$slash = "\x5C" ;
print "#!/usr/bin/perl\n\n" ;
$C = $B ;
$C =~ s/'/$slash'/g ;
print "\$B = '$C' ;\n" ;
print "$B\n" ;
