Re^3: How should I Extract data from text file. Pattern I have to extract should not repeated one.

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

Roboticus@Waubli ~
$ perl pm1208422.pl

Roboticus@Waubli ~
$

Select or download this

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

Select Code to Download