#!/usr/bin/perl -w
 
use strict;
use CGI;
 
my $q = new CGI;
 
print $q->header("text/plain");
 
my $str = "why can't I do this?";
 
print "original: $str\n";
 
$str =~ s|'|\\'|g;
 
print "modified: $str\n";
print STDERR "modified: $str\n";