#!/usr/bin/perl

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