my @a = qw(dave brian alex's eddie's);
s/'/\\'/ for @a;
print qq($a[3]\n);

--Output --
eddie\'s