use strict; use warnings; use feature 'say';
use Path::Tiny; # imports path()

my $file = '1193233.txt';
my @list = path( $file )->lines({ chomp => 1 });

say scalar @list . ' items';
say 'item: ' . $_ for @list;