Hello,

You should read your file one line at a time using while with the diamond operator. You should search for text with a regular expression, and capture a match with parentheses. 

#!/usr/bin/perl
use strict;
use warnings;

while ( my $line = <DATA> ) {
    print "Line number $. matches with $1\n" if $line =~ m/(\d{4}A)/;
}

__DATA__
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!
!
!   GENERIC TEST PLAN (RULES) FOR !!!!!!!!!!!!!!!!!!!!!!! nCaps
!
!   CREATED ON 06/15/15
!
!   CHANGES:
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!
!RECIPE NAME    LOTTYPE PNP     #WAFERS SITEMAP         PRIORITY
!
! PS Level
ILTPSPR25C080    POR       4099A   25      A300_20B     1
ILTPSPR25C080    SPLIT     4099A   125     A300_20B     1
!
ILTPSPR25N080    POR     4060A   25       A300_20B     1
!ILTPSPR25N080    POR     4060B   25       A300_20B     1

[download]
Output: 
Line number 13 matches with 4099A
Line number 14 matches with 4099A
Line number 16 matches with 4060A

[download]

Hope this helps!


The way forward always starts with a minimal test.

In reply to Re: Pulling 5 Character Strings out of an Array of Text Files by 1nickt
in thread Pulling 5 Character Strings out of an Array of Text Files by editholla

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.