Select Code to Download

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

#!/usr/bin/perl
use warnings;
...
print join(' ', @genders),"\n";

exit 0;