use 5.026;
use warnings;

my $string = q{This sting it's bothering to escape ' single characters};

my @posns;
push @posns, pos $string
   while $string =~ m{(?=')}g;

substr $string, $_, 0, qq{\x5c}
   for reverse @posns;
say $string;