Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

...
my ( $subStr2, $theRest2 ) = $string =~ /(.{3})(.+)/;
say $subStr2;
say $theRest2;

Select or download this
```
ATA
TTTATATTAT

ATA
TTTATATTAT
```