It seems to me that it might be easier to pre-parse this, then examine your data structure to see what matches. Treating it like a single string might make it easier also:

local($/);

my $data = <PL>;

while ($data =~ /
   \s*(?:-\s.\s-)?   # eat up "- A -"
   \s*(\w+),         # eats up spaces, last name in $1
   \s(?:(\w+\.)\s)?  # MI. in $2 (if any)
   (\w+)             # first name in $3
   \s*(\d+)          # phone number in $4
   \s+(\S+)          # room number in $5
   \s{1,6}(\S*)      # grabs the next "close" string, ORG in $6
/sxg) {
   # store and/or check to see if this is our guy
}
[download]

The while loop in conjunction with the g regex modifier will keep the test going through the entire string, which is effectively all of your data. I haven't tested that regexp, but it "seems" correct.. Fix it up if you need to.