Select Code to Download

$h{$xy} = [$_->[0], $_->[1]];

$h{$xy} = [$_->[0], $_->[1]] if $_->[5];

for my $o (0 .. $#line) {
    select BLA
    print ...
    select STDOUT
}

select BLA;
for my $o (0 .. $#line) {
    print ...
}
select STDOUT;

perl -e'$b=unpack"b*",pack"H*","59dfce2d6b1664d3b26cd9969503";\
for(;$a<length$b;$a+=9){print+pack"b8",substr$b,$a,8;}'