$j0 =~ s/'/''/g;