#!/usr/bin/perl

use strict;
use warnings;


open FILE, "/home/ajb004/Paradigms/roster.txt" or die $!;
while ( <FILE> )
{
        $_;
        my @word = split(',');
        foreach my $word (@word)
        {
                $_ = $word;
                s/_/ /g;
                print "ID: $_\n";


        }


}