#!/usr/local/bin/perl -w

open(HIPORT,"eq010125.txt");

$file = <HIPORT>;

$i = 0;

while ($file =~ /\n$/) {
    chop $file;
($var1,$var2,$var3,$var4,$var5,$var6,$var7,$var8,$var9,$var10,$var11,$var12,$var13,$var14) =
split(/[,]|[,]|\n$/,$file);
    print "$i : $var1 $var2 $var3 $var4 $var5 $var6 $var7 $var8 $var9 $var10 $var11 $var12 $var13 $var14 \n";
    $i++;
}