Answering your question is rather difficult, since I don't know what your data looks like.

Maybe something like .../$1.$paranum.$3/sie might help you...

Btw: if you set paranum to an integer, you'll get an infinite loop...

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"