sub dec {return(shift)-1}; $path =~ s/(\d+)$/dec($1)/e;