$ perl code3.pl
string is Rumpelstiltskinrumpelstiltskindisestablishmentarianism Camel Camel The the T t Tt he h e he e
code is Gzv
code is rQ
code is Z9z
code is FMp
code is Urm
code is kCd
code is oC2
code is 71G
code is Xyy
code is 912
code is 4Ja
code is BHX
code is Ats
code is syv
code is iRP
code is Lwn
default is Rumpelstiltskinrumpelstiltskindisestablishmentarianism
default is Camel
default is Camel
default is The
default is the
default is T
default is t
default is Tt
default is he
default is h
default is e
default is he
default is e
Gzv Z9z Z9z FMp Urm kCd oC2 71G BHX 912 Ats BHX Ats
Rumpelstiltskinrumpelstiltskindisestablishmentarianism Camel Camel The the T t Tt he h e he e
$VAR1 = {
          'e' => 'Ats',
          'the' => 'Urm',
          'Camel' => 'Z9z',
          'T' => 'kCd',
          'he' => 'BHX',
          'Rumpelstiltskinrumpelstiltskindisestablishmentarianism' => 'Gzv',
          'h' => '912',
          'The' => 'FMp',
          't' => 'oC2',
          'Tt' => '71G'
        };
$