in reply to substr regex alternative

print $string =~ /^.{6}(.{1,5})/s;

In Section Seekers of Perl Wisdom