#!/usr/bin/perl
use warnings;
use strict;


open (FILE,"sequence.txt");


my $substring = 'GATC';
my$i=0;
my$count;
my $sequence;
my$result;
my $number=0;
my $string;
my $offset = 0;
my @results;
while ($sequence=<FILE>){
	
    foreach($sequence =~ /$substring/g) { 
   #print "malakas\n";
    	    $count += () = /$substring/g;
    	    $number++;
    	     my $result = index($sequence, $substring, $offset);
    	     
  while ($result != -1) {
  	  push (@results, $result);
    print "Found $substring at $result\n";

    $offset = $result + 1;
    $result = index($sequence, $substring, $offset);
    

  }
  
    	     
    	    #print "$count\n";
    }
    #print "$result\n";
     
}
foreach $result(@results){
my $sum
}
    print "There are $count GATCs";