my $pms = ( join("\n", @foundfiles), "\n" );