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

##</code><code>##

sports.txt file :


sachin tendulkar!ODI!434!12000
sachin tendulkar!Test!246!10900
sachin tendulkar!T20!189!5000
sourav ganguly!ODI!334!8000
sourav ganguly!Test!235!5000
sourav ganguly!T20!124!1800
rahul dravid!ODI!387!9000
rahul dravid!Test!212!5980
rahul dravid!T20!43!1345