SCRIPT TO GENERATE REPORT :

use warnings;

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

format DATA2_TOP=
                  Records/Data of the trio
============================================================
Name    Format of match     matches played      runs scored 
============================================================
.

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);
}