#!/usr/local/bin/perl -- -*- C -*-

MAIN:
{

$file = <../who96.yxy>;

open(FILE, $file);
@lines = <FILE>;
open(OUTPUT,">who96_new.txt")

$i = 0;
for $line(@lines)
{
 ($position[$i], $name[$i], $room[$i], $email[$i]) = split(/\s+/,$line); 
     print OUTPUT "$position[$i], $name[$i], $room[$i], $email[$i] <BR>\n ";
  $i = $i + 1;
}
     
}
