in reply to Re^2: Reading from filehandles in a loop and matching lines
in thread Reading from filehandles in a loop and matching lines

You missed this: 

#go to the next line unless the name starts with "Mr "
    next unless$name =~ /^Mr /;

[download]

In Section Seekers of Perl Wisdom