#!/usr/bin/perl 

use v5.028;    # strictness implied
use warnings;
use Path::Tiny;
binmode STDOUT, ":utf8";
# to install:  cpanm Regexp::Pattern::Email
use Regexp::Pattern;

my $file_in  = path("/home/pi/Documents/curate/1.sscce.email.txt");
my $file_out = path('/home/pi/Documents/curate/1.kcott.email.output.txt');
my @addrs    = $file_in->lines_utf8;

my @matching;

for my $addr (@addrs) {
  if ( $addr =~ re("Email::email_address") ) {
    say "OK:  |$addr|";
    push( @matching, $addr );
  }
  else {
    say "NOK: |$addr|";
  }
}

@matching = sort(@matching);

say "cardinality: ", scalar @matching;
my $string = join( " ", @matching );
say "$string";
$file_out->spew_utf8($string);

__END__

$