#!/usr/bin/perl -w
use strict;

my $i = "abcdefghijkl m nopqrst uvxwyz";
print "$i\n";
my $j = mess_it($i);
print "$j\n";
print fix_it($j),"\n";

sub fix_it{
my $s = shift;
$s =~ s#(.)#chr(ord($1)/2)#ge; 
return $s;
}

sub mess_it{
my $s = shift;
$s =~ s/(.)/chr(ord($1)*2)/ge;
return $s;
}