Here's one way:

use warnings;
use strict;

my $string  = "ATATTTATATTAT";
my $removed = substr($string, 0, 3);
$string     = substr($string, 3);
print "$string $removed\n";

__END__

TTTATATTAT ATA
[download]

UPDATE: Fixed bug. Thanks AnomalousMonk