in reply to Working on pattern matching

Add in a 'die' function to see why file is not opening: open my $fh, '<', $input_file or die "Cannot open file: $!";

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks

In Section Seekers of Perl Wisdom