#!/usr/bin/perl -w

use strict;

my @pos;
my $line = "--------- --------- -------------- ---";
while ($line =~ / /g) {
    push @pos, pos($line);
}
print @pos;