in reply to Cut n' paste monkey on my back

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