use strict; use warnings;
while (my $line = <DATA>) {
    if ($line =~ /([N01]{39})$/) {
        print "line $.: <$1>\n";
    }
}
__DATA__