#!/usr/bin/perl

use strict;
use warnings;
[download]

Very good start!    These pragmas should be at the beginning of every Perl program.    (Note that it is spelled Perl, not PERL.)

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

You should usually use the three argument form of open and lexically scoped filehandles and you should probably include the file name in the error message so you know which file failed to open.

        $_;
[download]

You have a variable in void context which should trigger a warning message.

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

Why are you modifying $_ in this loop when you could just use $word directly?

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

And since you are also using $_ in the outer loop then this could cause problems in some situations so you should probably avoid using $_ if you can:

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

And if you are modifying single characters then the tr/// operator is usually more efficient than the s///g operator.

According to your explanation and data you probably need something like this:

#!/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
}
[download]