{
    local $/ = "\r\n";
    chomp $msg;
}

##</code><code>##

chomp $msg;
print ord(reverse $msg), "\n";