Hello fellow Monks,

I am trying to apply split on string every two characters, next step is to trim leading / trailing white space from string. Last step is join all the pieces together with white space in between. Of course this is easy on two steps. Is it possible to be done in one step?

Sample of code:

#!/usr/bin/perl
use utf8;
use strict;
use warnings;
use feature 'say';
use Encode qw(decode encode);
use String::HexConvert ':all';

binmode( STDOUT, ':utf8' );
my $Chinese = '北亰'; # Chinese characters for Bei Jing (U
++5317 U+4EB0)

say 'UTF-8';
my $utf8 = encode( 'UTF-8', $Chinese );

my $ascii2hexUTF8 = ascii_to_hex($utf8);
$ascii2hexUTF8 = join(' ', split(/(..)/, $ascii2hexUTF8));
say $ascii2hexUTF8;

$ascii2hexUTF8 =~ s/^\s+|\s+$//g;
say $ascii2hexUTF8;

__END__

$ perl test.pl
UTF-8
 e5  8c  97  e4  ba  b0
e5  8c  97  e4  ba  b0
[download]

Thank you for your time and effort.