#!/usr/bin/perl # Wasteful to use
use strict; use warnings;
my %known = ("foo" => "FOO", "bar" => "BAR", "baz" => "BAZ");
print "Talk to me, Goose.";
my $input = <STDIN>; chomp($input);
foreach my $maybe (keys %known) {
    if ($input =~ /$maybe/i ) {
        print "You gave us $input, which equates to $known{$input}. Good night, and good luck.\n";
        last;
    } else {
         print "Not a match. YET!\n";
    }
}
#!/usr/bin/perl #picky about its inputs
use strict; use warnings;
my %known = ("foo" => "FOO", "bar" => "BAR", "baz" => "BAZ");
print "Talk to me, Goose.";
my $input = <STDIN>; chomp($input);
print "You gave us $input, which equates to $known{$input}. Have a nice day.\n";