my $guts  = $path_to_file->slurp;
my @lines = split /^/, $guts;