if ($wilma =~ /(\w+)/) {
print "Wilma's word was $1"; }