#!/usr/bin/env perl

my $which = 3;
my $div = '!!!';
my $str = 'asdf' . $div . 'qwer' . $div . 'zxcv' . $div . 'hjkl' . $div . 'yuio' . $div . 'vbmn';

my @stuff;
my $spot = 0;
my $result = index($str, $div, $spot);

print "str: [$str]\n";
while ($result != -1) {

    print "Found '$div' at $result\n";
    my $start_spot = ($spot ? $spot + length($div) - 1 : 0);
    my $field_length = ($spot ? $result - $spot - length($div) + 1 : $result - $spot);
    push @stuff, substr($str, $start_spot, $field_length);

    $spot = $result + 1;
    $result = index($str, $div, $spot);
    }

print @stuff . "\n";
print '-- #' . $which . '=' . @stuff[$which-1] . "\n";