000    NP          U          Pu
001    1.270000    000001     3.141000
002    Lev         N          Pu
003    0.13        000001     3.277118
004    NP          U          Pu
005    1.000220    000002     3.098761
006    Yac         S          Yb
007    10.33000    000001     90000000

##</code><code>##

open I,"data.dat";
for($I=0;$I<1000;++$I)
{
$l1=<I>;
chop $L1;
$L2=<I>;
chop $L2;
#find the data here
printf ("%d, %d, %d\n", $N1, $N2, $n3);
}