#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $str = "01100110 01100101 01100101 
           01101100 01101001 01101110 
           01100111 00100000 01101100";

my $int  = unpack( "V", $str );
my $str1 = ord($int);
my $str2 = chr($str1);
binmode STDOUT, ':utf8';
print $int,  "\n";
print $str1, "\n";
print $str2, "\n";