#!/usr/bin/perl my @all; while (<>) { if($. == 1 ){ @all = split ",", $_; break; } } print $all[-1];
Private Wrap long lines
4 + 4 =