substr($_, 0, 4)

##</code><code>##

substr(do { _utf8_off(my $internal = $_); $internal }, 0, 4)