my ( $output ) = $char =~ /(?<=^\S{5})(\S+)(?=\S{5}\z)/;

##</code><code>##

my ( $output ) = $char =~ /^.{5}(.*).{5}\z/s;

##</code><code>##

my $output = substr( $char, 5, -5 );