#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper::Concise;

my $string = '0x0ddb00b5';
my $rot = rot47($string);
print Dumper($rot);

sub rot47 {
  my $str = shift;
  $str =~ tr/!-~/P-~!-O/;
  return $str;
}
exit 0;

##</code><code>##

"_I_553__3d"