#!/usr/bin/perl -w

use strict;

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

my @matching = qw/disk duck deck/;

foreach $j (@matching) {
	die "bastard\n" if($input =~ /$j/);
}