substr( $char, 5, -5, "" );   # In-place

##</code><code>##

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