# to be inserted into the while loop above
my @lines = split /\n/, $_;