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