The left hand side of tr/// doesn't interpolate, and it also doesn't do what you want with multi-character strings. It's OK (and fast) for counting the number of a single type of character in a string, but not for a multi-character substring. You want: 
## not this
## $n = ($string =~ tr/$search//);
$n = () = $string =~ m/$search/g;

[download]
Update: But if your DNA sequence is really huge, loading it all into memory is probably very inefficient. You could use something like tachyon's approach given above, although it will probably miss matches that straddle a \n.

blokhead

In reply to Re: search for a sequence of chars in a string by blokhead
in thread search for a sequence of chars in a string by imlou

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.