Close, but I think this is actually what Red_Dragon is looking for:

$a =~ s/\'/\\\'\\\'/g;
[download]

Update: I was a bit too lazy on my copy job, you don't actually have to escape the '. So this will save you some keystrokes:

$a =~ s/'/\\'\\'/g;
[download]

-jbWare