Re^3: Define regex substitution $1,$2,... from a string

There's no e+e . Also, if you want to use s/// with slashes, you need to backslash literal slashes. Moreover, there's no say in 5.8.8. Use perl -l and print instead.

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

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re^3: Define regex substitution $1,$2,... from a string Select or Download Code