my @array = qw('a3-da-um-=TUG2-:II 1 AKTUM-=TUG2 1 IB2-:4-=TU[G2 S[A]6 + DAR); for my $word(@array) { if ($word =~ /(\(U)(\[|\])?(\w)?(2)/) { $& =~ s/$1/Ú/; $$ =~ s/$4//; } print "@array\n";
In reply to $& as a read-only value by frasco
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |