in reply to help needed with map

I also don't understand what you really want to achieve. If you got a for-loop, why not show it. I think that'll be more easy to understand.
$\=~s;s*.*;q^|D9JYJ^^qq^\//\\\///^;ex;print

In Section Seekers of Perl Wisdom