#!/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