$return{"objdump"} = join( "", $return{"objdump"} =~ /[0-9a-f]{8}/g ); my $length = length $return{"objdump"}; for( my $i = 0 ; $i < $length ; $i += 2 ) { print "\\x" . substr( $return{"objdump"}, $i, 2 ); }