say $str =~ s/gacg/\n/r =~ /[ACGT\n]/g;