@TATA = ($seq =~ m/TATA[A|T][A|T][A|T|G]/i)
 $number_of_TATA = @TATA;
 if ($number_of_TATA > 0){
    print "The positions of the TATA box are:";

  foreach (@TATA){

    $TATA_position=pos($TATA)-7;
    print $TATA_position."\n";
 }