Select Code to Download

    if ( $line =~ /([N01]{39})/ )

    if ( $line =~ /([N01]{39});/ )

use strict; use warnings;
while (my $line = <DATA>) {
...
    }
}
__DATA__

Roboticus@Waubli ~
$ perl pm1208422.pl

Roboticus@Waubli ~
$

Roboticus@Waubli ~
$ perl pm1208422.pl
...
line 214: <NN0NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0NNN>
line 216: <NN0NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1NNN>
 . . . et cetera . . .