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

my @chunks = <DATA>;

# only 12345 is to be matched
foreach my $i ( 0 .. @chunks-1 ) {
    my $data = $chunks[$i];
    no warnings;
    if ( $data =~m/[^\d+\.?\*?]/ ) {
        print "Number Matched\n";
    }
}

__DATA__
1. For further assistance email us at 121@azing.com',
* You can also highlight any matter related to our Officer',
Page 2,
12345