Your data is delineated by "|"? How about: 
($clliA,$clliB) = (split "|",$source,16)[14,15];

[download]
This splits $source into fields that were separated by |, but only the first 16 of them, and puts them into a list, of which you the 15th and 16th elemensts thereof.

Update I guess everyone thought of split...and are faster typers!

Your use of .* is particularly inefficient. Going with a simpler 3-field case: /^.*A.*A.*$/, it would match "shAzAm" by: 

   match "shAzAm" with .*, can't find A, backtrack.
   match "shAzA"  with .*, can't find A, backtrack.
   match "shAz"   with .*
   match "shAzA"  with .*A
   match "shAzAm" with .*A.*, can't find A, backtrack
   match "shAzA"  with .*A.*, can't find A, backtrack
   match "shA"    with .*, can't find A, backtrack
   match "sh"     with .*
   match "shA"    with .*A
   match "shAzAm" with .*A.*, can't find A, backtrack,

[download]
and so forth. Imagine that with 16 .*A combinations, like you had.

In reply to Re: There has to be an easier way... by BlaisePascal
in thread There has to be an easier way... by bxjoh

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.