Help for this page

Select Code to Download


  1. or download this
    #my @chars = grep !$seen{$_}++, $text =~ /./g;
my @chars = 'a'..'z';
...
           @chars;

$text =~ s/$re//g;
  2. or download this
    #my @chars = grep !$seen{$_}++, $text =~ /./g;
my @chars = 'a'..'z';
...
           @chars;

$text =~ s/($re)/substr($1,0,3)/eg;
  3. or download this
    #my @chars = grep !$seen{$_}++, $text =~ /./g;
my @chars = 'a'..'z';
...
           @chars;

$text =~ s/$re/substr($text,$-[0],3)/eg;