in reply to Cut n' paste monkey on my back

while $line {
  @collect = split (".", $line);
  "evaluate" $collect[3] or @collect[3..$#collect];
}

[download]
untested :-)

In Section Seekers of Perl Wisdom