diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 64067db17ec60b5ae8adf05ff8472ce8bf6709fa..603dae0729890f22746596bb4353a72addc92427 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -512,10 +512,10 @@ sub check_if_db_conform ($string, $filename) {
   sub get_file_path($xp, $filegrp, $filepid) {
     return $xp->findvalue("./mets:file[\@ID=\"$filepid\"]/mets:FLocat/\@xlin:href", $filegrp);
   }
-  sub get_file_path_rx($xml, $filepid) {
+  sub get_file_path_rx($xml, $filepid) { # this method is around 2.5x slower than get_file_path
     my $nt = qr{[^>]*};
     if ($xml=~m{(?:<mets:file${nt}ID="$filepid"$nt>\s*<mets:FLocat${nt}xlin:href=")([^"]*)}s) {
-      #say "path $1";
+      #warn "path '$1'\n";
       return $1;
     }
   }