use List::Util qw( sum );

my $s = 'ook';
my $base = 128;
my $e = 1/$base;
print sum map { ord() * ($e *= $base) } reverse split //, $s;
print "\n";
__END__
1832939