Use of uninitialized value $_ in pattern match (m//) at ./INVALID_FILE.pl  

##</code><code>##

--pattern '[G|M][0-1][0-9]_(GSP_|VIB_)[0-9]{12}\.log'

##</code><code>##

 
$args{dir}  = $DEFAULT_DIRECTORY unless defined( $args{dir} );
$args{log} =  $DEFAULT_LOG_FILE  unless defined( $args{log} );
$args{pattern} =  $DEFAULT_PATTERN  unless defined( $args{pattern} );
$args{sendto} =  $DEFAULT_SEND_TO  unless defined( $args{sendto} );
$args{help} = 0                  unless defined( $args{help} );
die "$usage\n" if $args{help};

#create new Log::LogLite object
my $log =
  new Log::LogLite( $args{log}, $ERROR_LOG_LEVEL );
print "Pattern Submitted: $args{pattern}\n";

my $pattern_re = m/(?:$args{pattern})/o;
#my $pattern_re = $args{pattern};
print "Pattern: $pattern_re\n";

# Make sure this directory exists
if ( -d $STARTING_DIRECTORY . $args{dir} ) {

        my @files = File::Find::Rule
        ->not_name($pattern_re)
        ->in($STARTING_DIRECTORY . $args{dir});