my $l = length($string);
$string = reverse unpack("A$l",reverse unpack("A$l",$string));