Select Code to Download

my $data = '1 2 3 4 5 6 7 8 9 1 0'
print join ' ', grep $_,(split' ', $data)[ map{ my $n = 4 * $_; ( $n, 
+$n + 1 ) } 0..5 ];
1 2 5 6 9 1