my $string = 'abcde'; 
my ($ex)= $string =~ /fhi/; 
print 'my eleventh gender is ', 
 defined $ex ? '' : 'not ', "defined\n";