Update: This is bad advice - It doesn't work. See merlyn reply below.

This works on my system:

use strict;

print "What is your insult? ";
chomp(my $input = <>);

my @matching = qw/disk duck deck/;

if ($input eq $matching[0||1||2]) {die "bastard\n"};
[download]

$ perldoc perldoc