if($data =~ /(^\.def)[.+]\.\.$/smx){


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

print "This is Macro $data \n";

}