my $str = '1234567812345678';
$str =~ s/(.{8})/reverse $1/eg;
print "str: $str\n";

__output__

str: 8765432187654321