#
# eg5: first use of regexps
#
print "Please enter your name: ";
my $name = <STDIN>;
chomp $name;
$name = ucfirst(lc($name));
if( $name =~ /^Dun[ck]/ )
{
	print "\nwotcha Dunky babe!\n";
} else
{
	print "\nhello $name!\n";
}
