while ($x =~ /(\.)/) {
    $temp = ord($1);
    $x =~ s/\./$temp/;
}