perl -F, -lanE 'm/module/?say:say qq|.$F[0]($F[0])$F[1]|' < trial1.txt