use warnings; use strict; my $string = "ATATTTATATTAT"; my $removed = substr($string, 0, 3); $string = substr($string, 3); print "$string $removed\n"; __END__ TTTATATTAT ATA