use strict;

my @input= split("", 'rnbqkbnr');

my $search='n';

my @result;

for (my $i = 0; $i < $#input; $i++)
{
        push @result, $i if $input[$i] eq $search;
}

print "Result: ",join(' , ',@result);