in reply to To repeat each word in a line

Here is some working code: 
$ perl -F, -lanE 'm/module/?say:say qq|.$F[0]($F[0])$F[1]|' < input.tx
+t 
module abc(
.rist_top_tck(rist_top_tck)
.rist_top_tdi(rist_top_tdi)
.rist_top_tdo(rist_top_tdo)

[download]
If you would like to learn how/why that works, please read the documentation, and ask specific questions.

                "The difficult we do today; the impossible takes a little longer."

Replies are listed 'Best First'.
Re^2: To repeat each word in a line
by kulua (Initiate) on May 23, 2021 at 06:39 UTC

    How to execute this command from a perl file

[reply]

In Section Seekers of Perl Wisdom