Last   First   Phone   Bldg    Room    email
 
Use of uninitialized value in printf at PL.pl line 11, <FH> line 2.
Use of uninitialized value in printf at PL.pl line 11, <FH> line 2.
Use of uninitialized value in printf at PL.pl line 11, <FH> line 2.
                           ----
Use of uninitialized value in printf at PL.pl line 11, <FH> line 5.
Use of uninitialized value in printf at PL.pl line 11, <FH> line 5.
Use of uninitialized value in printf at PL.pl line 11, <FH> line 5.
                          john
Use of uninitialized value in printf at PL.pl line 11, <FH> line 8.
Use of uninitialized value in printf at PL.pl line 11, <FH> line 8.
Use of uninitialized value in printf at PL.pl line 11, <FH> line 8.
                          ed@a.nl
Use of uninitialized value in printf at PL.pl line 11, <FH> line 11.
Use of uninitialized value in printf at PL.pl line 11, <FH> line 11.
Use of uninitialized value in printf at PL.pl line 11, <FH> line 11.
                         cbest

##</code><code>##

Last   First   Phone   Bldg    Room    email
 
Alanon  Bart^M                           ----
O'Lewis John.^M                          john
Le Much Bo Jo^M                          ed@a.nl
Abe-Jen Mar-Jo^M                         cbest

##</code><code>##

#!/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+)];
}