print "Enter words separated by commas.";
chomp(my $answer=<STDIN>);
die "Invalid input" if $answer =~ tr/a-zA-Z,//c;