perl -le 's ssSss.s sSsSiss.s s$sSss.ss .$s\107ss.print' 

##</code><code>##

Backslash found where operator expected at -e line 1, near "$s\"
        (Missing operator before \?)
Bareword found where operator expected at -e line 1, near "107ss"
        (Missing operator before ss?)
syntax error at -e line 1, near "$s\"
Execution of -e aborted due to compilation errors.