#!/usr/bin/perl -w use strict; use 5.16.0; my $end; my @all; while (<>) { @all = split ",", $_; say $all[-1]; $end = $all[-1]; }
Private Wrap long lines
1 + 1 =