#!/usr/bin/perl 

use v5.030;    # strictness implied
use warnings;
use Path::Tiny;


my ($path) = @ARGV;
if (not defined $path) {
  die "Need path in\n";
}

my $file_in = path("$path");
my @lines = $file_in->lines_utf8;

my @matching;
for my $line (@lines){
 
    if ( $line =~ /^#*$/){
    say "line  matched $line";
      next;
    }
        else {
      push( @matching, $line );
    }
}


say @matching;
say "cardinality: ", scalar @matching;
my $target_dir = path('/tmp');
my $tempfile = $target_dir->tempfile('foobarXXXXXX');
$tempfile->spew("@matching");  # not atomic
__END__