Select Code to Download

my @source = ("John Ronald Reuel Tolkien","John Ronald S Tolkien","Tre
+nt Reznor","Barack Hussein Obama II","Barack Hussein II"); #note that
+ the second item is wrong and should be discarded!
my @search = ("John Ronald Reuel T","Trent Reznor","Barack Hussein II"
+,"Barack Hussein Obama II","No match here");

#!/usr/local/bin/perl
use strict;
...
    # Trent Reznor            NO OTHER NAMES PRESENT
    # Barack Hussein          II
    # Barack Hussein          Obama|II

# search                    source
# John Ronald Reuel T       John Ronald Reuel Tolkien
# Trent Reznor              Trent Reznor
# Barack Hussein Obama II   Barack Hussein Obama II
# No match here