#!/usr/bin/perl
$string1 = q(My Dog Has Fleas);
print $string1;
print "_END\n";

$string2 = q(Mary's hat is red);
print $string2;
print "_END\n";

$string3 = 'Mary\'s hat is red';
print $string3;
print "_END\n";

$string4 ='\\\'';
print $string4;
print "_END\n";