#!/usr/bin/perl

use strict;
use warnings;

my @tag_template = ('ID', 'Name', 'Major', 'Email');

#open FILE, '/home/ajb004/Paradigms/roster.txt' or die $!;
while ( <DATA> )
{
   chomp;     ## needed to get rid of \n on e-mail address
   my @word = split(/,/);  #this is actually a regex
   my @tags = @tag_template; #copy is not a big deal here
        
   print "<TR>\n";
   foreach my $word (@word)
   {
      $word =~ s/_/ /g;
      my $tag = shift(@tags);
      print "    <TD>$tag: $word</TD>\n";
   }
   print "</TR>\n";
}
=Prints:
<TR>
    <TD>ID: 123456</TD>
    <TD>Name: Susie Smith</TD>
    <TD>Major: Computer Science</TD>
    <TD>Email: ssmith@usomewhere.edu </TD>
</TR>
<TR>
    <TD>ID: 234567</TD>
    <TD>Name: John Smith</TD>
    <TD>Major: Computer Engineering</TD>
    <TD>Email: jsmith@usomewhere.edu</TD>
</TR>
=cut

__DATA__
123456,Susie_Smith,Computer_Science,ssmith@usomewhere.edu 
234567,John_Smith,Computer_Engineering,jsmith@usomewhere.edu