my $s = '123456789';
say substr $s, 7;     # 89
say substr $s, 0, 7;  # 1234567