use strict;
use warnings;

my $line = '48 65 6c 6c 6f 2c 20 77 6f 72 6c 64 21';
my @cbytes = split / /, $line;
my $retString;

foreach my $byte (@cbytes)
{
    my $hex = '0x'.$byte;
    my $value = eval $hex;
    my $char = chr $value;
    $retString .= $char;
}

print $retString;