use strict;
use warnings;
my $message = q(O'REILLY);
my $sql_message = sql_escape( $message);
print "$sql_message";

sub sql_escape 
{
	my $text = shift;
	$text =~ s/'/\\'/g;
	$text =~ s/"/\\"/g;
	return $text;
}