$ARGV[0] .= ".rpt";

open(FH,"<$ARGV[0]") or die "Cant open";
@arr = <FH>;

close(FH);

foreach $data(@arr){



if($data =~ /^\.define/ .. /^\.\.\.define$/){



$data =~ s/(^\.\w+\s+)(\w+)(\s+)(.+\w+$)(\s+\. \.$)/$2,$4/smx;

print "$data \n";


}



}