Help for this page
my $reject_rx = qr{ total [ ] rows [ ] rejected: [ ] (\d+) ... my $count = defined $1? $1 : $2; print $count, "\n"; }
use 5.010_00 ... if ( my ($count) = $line =~ /$reject_rx/ ) { say $count; }