in reply to Re^6: Please correct me in the above regular expression
in thread Please correct me in the above regular expression

use strict;
use warnings;

my $input = <<IN;
 int abc;
.abc(pqr);
.abc(abc)
IN

my $output = <<OUT;
int abc_1;
int abc_2;
.abc(pqr),
abc_1(abc_1),
.abc_2(abc_2)
OUT

my $match = <<MATCH;
 int abc;
.abc(pqr);
.abc(abc)
MATCH

print $output if $input =~ /\Q$match\E/;

[download]

Perhaps you can ask a better question? Maybe you can show us some code we can run that shows the problem you are having?

Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond

In Section Seekers of Perl Wisdom