#!/usr/bin/perl
# w2.6.pl -- Perl strings

print("Say hello Gracie.  ");
$response = <STDIN>;
chomp($response);
print("You said \"$response.\"  ");
print("The correct answer was \"Hello Gracie.\"\n");
__END__

