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