<pre> perl -le 'print q^.;,2~-+=5-~*11^^q=^^^^^^^^^^^^^^=' </pre>