Select Code to Download

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

print "@result";