Select Code to Download

my $input  = 'rnbqkbnr';

...
push @results, $-[0] while $input =~ /(n)/g;

print "@results";

push @results, $-[0] while $input =~ /n/g;