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