>perl -E '$_="h:/p/f.zip";$replace=q[qq<x?f=$1>];s|([^/]+)$|$replace|ee;say'
h:/p/x?f=f.zip