in reply to There has to be an easier way...
my @fields = split /\|/, $_; my($clliA,$clliB) = @fields[14,15]; [download]