while(<>) { s/[\r\n]//g; @field = split( /,/, $_ ); printf( "%s\n", $field[1]); } exit;