>perl -wMstrict -le
"for my $in (@ARGV) {
   my @nuxi =
     map sprintf('%04x', $_),
     unpack 'v*', $in . qq{\000}
     ;
 print qq{$in -> @nuxi};
}
" test tester teste
test -> 6574 7473
tester -> 6574 7473 7265
teste -> 6574 7473 0065