Select Code to Download

#!/usr/bin/perl
use strict;
...
my $nothing2;
$nothing2 = '' if !defined $nothing2; # pre Perl 5.10
print "$nothing2\n";

my $first_type = $first_book =~ /^M/ ? 'major' : $first_book =~ /^m/  
+? 'mentioned' : undef;

...
my $first_type = 'major'  if $first_book =~ /^M/;
$first_type = 'mentioned' if $first_book =~ /^m/;
$first_type //= 'unknown';