while(my $line=<FILE>) {
    my $linecopy=$line;
    while ($line=~m/(ct[ag]a[ct])/g) {
        my $match=$1;
        my ($rest)=$linecopy=~m/(?:$match)(.*)$/;
        print "$match\t".length($rest)."\t";
    }
    print "\n";
}