TIMTOWTDI:
use strict;

while (<DATA>) {
    next unless /^(?:MS_|TS_|BP_|Dummy_)/;
    next unless /(?:_0001|_025f|_0001_[[:alnum:]]{4})$/;
    print +(split '_')[1],"\n";
}

__DATA__
MS_11BT801_AQHT801_0001
TS_11BT801_AUBT801_0001
BP_11BT801_C2DT801_0001
BP_11BT801_DNWT801_025f
Dummy_11BT801_CPZT801_3h81
MS_C2DT801_PU7T801_0001_678b
TS_C2DT801_RAYT801_0001_7d18
BP_CJBT801_NKRT802_0001_a6d8

[download]
Output:
11BT801
11BT801
11BT801
11BT801
C2DT801
C2DT801
CJBT801

[download]
If by "ends with one of _0001, _025f(alphanumeric)" you mean that the string could end in any 4 alfanumerics (and not specifically _0001 or _025f) you can simplify the second regex to 
/[[:alnum:]]{4}$/

[download]

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

In reply to Re: String with multiple underscores by CountZero
in thread String with multiple underscores by sgowrish

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.