Help for this page

Select Code to Download


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