Use of uninitialized value in regexp compilation at Program.pl line 152, <FLAT_FILE_B> line 1.


##</code><code>##


while (<FLAT_FILE_B>){
  chomp;
  s/"//g;       
  my $chosen_C = $_;
  
  my @EXEC_block_array;

  if ($rewrite_file_status == 1){

    if (defined $chosen_C && $chosen_C =~ /;(\d{1,3});\d{1,3};Stand_method;'SMRxsxtxmx(\d\d\d\d)x(\d\d\d\d)x(\d\d)x(\d\d\d\d).{0,10}'/){ #  Here I get the warning message