#!/usr/bin/perl
my $file = <STDIN>;
my %chars;
$chars{$_}++ for split //, $file;
my @set = sort { ord $a <=> ord $b } keys %chars;
my $set = quotemeta join "", @set;
$file =~ eval "\$file =~ tr($set)(a-z)";
$file =~ s/($_{2,})/$_ . length $1/eg for "a".."z";
print "set=$set (@{[map ord, @set]})\n$file";