#!usr/bin/perl

use warnings;
use strict;

my $string = "This is a test. Testing script is for test";
print $string, "\n";

my $foundAt = 0;
my $offset = 0;
my $label = 1;
my %positions;

while ( ( $foundAt = index( $string, 'test', $offset ) ) > -1 ) {
   $positions{ $foundAt } = $label++;
   $offset = $foundAt + 1;
}

foreach ( 0 .. length( $string ) - 1 ) {
   print $positions{ $_ } ? $positions{ $_ } : " ";
}