in reply to Re^2: How can I replace the pattern in the 6 th field?
in thread How can I replace the pattern in the 6 th field?

OK, then use split and run the substitution on the seventh (the dash is a field, too) field only:
while (<DATA>) { chomp; my @F = split / /; $F[6] =~ s/[()]//g; say join ' ', @F; }
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

Replies are listed 'Best First'.
Re^4: How can I replace the pattern in the 6 th field?
by theravadamonk (Scribe) on Jun 19, 2018 at 04:07 UTC

    It works as I expected.

    Sir, Thanks a LOT for your effort. due to your help, I Could go ahead. I also appreciate everyone who helped me in this mail thread.