CODE :


format DATA2=
------------------------------------------------------------
@<<<<<<<<<<<    @<<<<<<<<<   @#########           @########
$name           $format      $matches             $runs
------------------------------------------------------------
.

format DATA2_TOP=
============================================================
Name  Format of match  matches played  runs scored   page@<<
                                                          $%
============================================================
.
#select(DATA2);
open(DATA,"<C:/Perl/perl_tests/sports.txt");
@array=<DATA>;
close(DATA);
open(DATA2,">>c:/perl/perl_tests/blank.txt");
foreach(@array)
{
chop;
($name,$format,$matches,$runs)=(split(/!/));
write(DATA2);
}
open(DATA2,"<c:/perl/perl_tests/blank.txt");
while(<DATA2>)
{
print("$_\n");
}
close(DATA2);