$dna = q/attatcgatgaaattagggctaatctcgcggggcctat/;
                ^-^          ^-^
               match   match and exit