#!/usr/bin/perl -w
use strict;
my $msg = '1324^@^@^@';
my $lng = length($msg);
print "The length of the message is: $lng\n";
print "This is the message itself: [$msg]\n";