Select Code to Download

while ( my $line = <DATA> ) {
    my ( $second, $sixth ) = ( split //, $line )[1,5];
    print $second, $sixth, "\n";
}