String found where operator expected at /Users/Nyro/Documents/perl_tests/02_FileNameExtract.pl line 717, near "my $reject1='"
  (Might be a runaway multi-line '' string starting on line 715)
    (Missing semicolon on previous line?)