use File::Find::Rule qw( );

my @files = File::Find::Rule
    ->name( qr/^\d{8}\.\d{6}\.host\d\.\d{1,6}$/ )
    ->file()
    ->maxdepth(1)
    ->in( $path );