#!/usr/bin/perl

use strict;
use warnings;

##</code><code>##

open FILE, "/home/ajb004/Paradigms/roster.txt" or die $!;

##</code><code>##

        $_;

##</code><code>##

                $_ = $word;
                s/_/ /g;
                print "ID: $_\n";

##</code><code>##

                $word =~ s/_/ /g;
                print "ID: $word\n";

##</code><code>##

while ( my $line = <FILE> )
{
        my @words = split /,/, $line;
        foreach my $word ( @words )
        {
                $word =~ s/_/ /g;
                print "ID: $word\n";
        }
}

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;


my $file = "/home/ajb004/Paradigms/roster.txt";

open my $FILE, '<', $file or die "Cannot open '$file' because: $!";

while ( my $line = <$FILE> )
{
        chomp $line;
        $line =~ tr/_/ /;
        my ( $id, $name, $major, $email ) = split /,/, $line;
        print <<TEXT;
ID: $id

Name: $name

Major: $major

Email: $email
TEXT
}