#!/usr/bin/perl

use warnings;
use strict;

my $string = 'acacagagatcgctagatcgatcgatcgat';

print substr($string, 0, 3); #aca
print substr($string, 3, 3); #cag