my $details = pop @items;
my $detailsLineCt = ($details =~ tr/\n//);