in reply to substitution of a string with Square brackets.

Hi, Try like this,

Untested

$line =~ s#$methodname\((\Q$2\E)\)#private $methodname($2)#g

[download]

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

In Section Seekers of Perl Wisdom