#!/usr/bin/perl

$port = 11112; 

open (AB, "students"); 
while ($line = <AB>) {
  if ($line =~ /(.*)\((.*)\)/) {
    $username = $1; 
    $name = $2; 
    $username =~ s/\s//g; 
    $a = $port + 1; 
    print qq{$username, <a href="http://silo.cs.indiana.edu:$port">$port</a>, $a \n}; 
    $port += 2; 
  } 
}
close(AB);