Help for this page

Select Code to Download

Select or download this

  $var = "abXaaabbbc" ;
  $var =~ s/(..)X(??{"[$1]+"})/${1}#/ ;
  print "$var\n" ;

Select or download this
```
ab#c
```