sub xor_befuddle {
    my( $cleartext, $onetimepad )= @_;
    $onetimepad .= $onetimepad
        while  length($onetimepad) < length($cleartext);
    return $cleartext
        ^ substr( $onetimepad, 0, length($cleartext) );
}
[download]

        - tye (but my friends call me "Tye")