#!/usr/bin/perl

  use strict;

  use File::Find::Rule;
  use Data::Dumper;

  my @dirs = (
    'L:\\renws\\billing\\uploadh',
  );

  my @files = File::Find::Rule
                ->file()
                ->maxdepth(1)
                ->name(qr/.RP1/)
                ->in(@dirs);

  print Dumper \@files;