12345678 use Perlmazing;our @ISA = qw(Perlmazing::Listable);sub main { $_[0] =~ s/'/\\'/g if defined $_[0];}1;
use
Perlmazing;
our
@ISA
=
qw(Perlmazing::Listable)
;
sub
main {
$_
[0] =~ s/
'/\\'
/g
if
defined
[0];
}
1;