use strict;
use warnings;
use File::Find::Rule;

my @found = File::Find::Rule
    ->file()
    ->name( map "*$_", @ARGV )
    ->in( '.' )
;
print scalar( @found ), $/;