#!/usr/bin/perl


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

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

foreach $data(@arr){

if($data =~ /^\.def(.*)$/smx){


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

print "This is Macro $data \n";

}

}
close(FH);