t

#!/usr/bin/perl
$n  =" \x4a\x61\x20\x73\x61\x6d\x20\x76\x65\x6c
\x69\x20\x69\x20";
$n .=" \x69\x6d\x61\x6d\x20\6d\x61\x6c\x69\x20\
x2a\x56\x65\x64\x72\x61";
$n .="\x6e\x20\x46\x75\x72\x61\x63";
print "$1 $3 $4$2$5 \x3a\x2d\x29\x0A" if ($n =~ /(^.*)(\s.\s.*)([A-Z]

23;1}\w+
\s([A-Z]{1}(\w+))$/);