Select Code to Download

#!perl
use strict;
...
{
    print "<0>" . $line ."\n";
}

<0>some
.
.
<0>some
<0>some

#!perl
use strict;
...

    print "<1>" . $line ."\n";
}

<1>some
<1>random
...
<1>to
<1>test
<1>this

while ($data =~ m/^(.*)$/gm)
{
    print "<2>" . $1."\n";
}