Perl awesome oneliners

<p><pre><code> # one time pad, usage: otp &lt;padfile&gt; &lt;plaintext|ciphertext&gt; undef$&#x2F;;print&lt;&gt;^&lt;&gt;</code></pre>