Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
...
    return @fromTo;
}
__END__

Unknown suffix (.txt) ignoring(err/error.txt) at - line 41.

...

rename ["blah/bar.xml", "blah/3.xml"]

        my $transform = "";
        $transform = \&transformJpg if  $suffix =~ /^\.(jpe|jpg|jpeg)/
+i ;
...
    }
    return @fromTo;
}

sub transformJpg {
    dd transformJpg => \@_ ;
...
    return "$dir$idx$suffix";
    return $path;
}