Is this what you are after?

use strict;
use warnings;

use Test::More tests => 1;

my $have = "This sting it's bothering to escape ' single characters";
my $want = "This sting it\\'s bothering to escape \\' single character
+s";

$have =~ s/'/\\'/g;

is $have, $want;
[download]