This is not "modified code" since the code you have presented is not Perl at all. However here is just one of the many, many ways to achieve this in Perl.

#!/usr/bin/env perl
use strict;
use warnings;
use Path::Tiny;

my @r = path (shift)->lines;
s/(.*),$/.$1($1),/ for @r[1..$#r];
$r[-1] =~ s/,$/);/;
print @r;

[download]

And if you save it to a file called double.pl here is how it runs:

$ cat input.txt 
module abc(
rist_top_tck,
rist_top_tdi,
rist_top_tdo,
$ ./double.pl input.txt
module abc(
.rist_top_tck(rist_top_tck),
.rist_top_tdi(rist_top_tdi),
.rist_top_tdo(rist_top_tdo));
$

[download]

See the docs for Path::Tiny, s/// and print for more.

🦛

In reply to Re: To repeat each word in a line by hippo
in thread To repeat each word in a line by kulua

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.