my $literal = <DATA>;

  $literal =~ s/\\*'/\\'/g;

  # later on...

  # There may be a number of literals in reality - 
  # each would be single quoted to prevent interpolation

  my $string = eval "'$literal'";

__DATA__
this could be \'; system("ls -la");\'