#!/opt/bin/perl -slw
use strict;
 
print "\nLast   First   Phone   Bldg    Room    email\n";
 
open FH => "<testdata.txt" or die "can't find the data file: $!\n";
 
until( eof( FH ) ) {
#       no warnings 'uninitialized';
        printf '%-7.7s %-7.7s ',     <FH> =~ m[ ([^,]+) , \s* (.+) $]x;
        printf '%7.7s %7.7s %7.7s ', <FH> =~ m[ ([^/]+) / (?:(\S+)\s+)? (\S+) $]x; 
        printf "%s\n",               <FH> =~ m[^(\S+)];
}