#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;
my $Dna1 = "AACAGCACGGCAACGCTGTGCCTTGGGCACCATGCAGTACCAAACGGAACGATAGTGAAAACAATCACGA\n";   
          
while ($Dna1 =~ /C[AG]G/g){
             
my $endposition = pos($Dna1) + 1;
my $matchlength = length($1);
  #I need to print “Looking for pattern1 = C[AG]G
      	 			Pattern C[AG]G matched CAG at residue 2”
print “……….”