Actually quotemeta will quote all non alphanumeric characters which is rather more than the original querient was after :)

I would suggest some variant of:     s#\'#\\\'#g;

--
my $chainsaw = 'Perl';