1:26 >perl -E " $string = qq[ATATTTATATTAT]; say $string; $removed = substr($string, 0, 3, q[]); say $removed; say $string; "
ATATTTATATTAT
ATA
TTTATATTAT

 1:30 >