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

##</code><code>##

ab#c