Help for this page

Select Code to Download


  1. or download this
    'aa' =~ /(.)\1/
  2. or download this
    use 5.010;
my @a = qw/a d/;
$_ = '0a1d1y0z';
say s/(\d)${a[\1]}/xx/g;
say;
  3. or download this
    say s/(\d)([a-z])(?(?{ $2 ne $a[$1] })(*FAIL))/xx/g;
say;