use strict;
use warnings;

my $input  = 'rnbqkbnr';
my $search = qr/n/;
my @result;

push @result, pos($input) - 1 while $input =~ /$search/cg;

print "@result";