I'm sure there has to be a better way to do this (read: this could be way off the mark), but assuming you're referring to Crypt::RC4, try the following:

use Crypt::RC4;

my $key       = "abcdefghijklm";
my $plaintext = "Hello, World!";

my $encrypted = RC4($key, $plaintext);

print $encrypted, "\n";

my @characters;

for (split //, $encrypted) {
    push @characters, ord($_);
}

print @characters, "\n";
$encrypted = "";

for (@characters) {
    $encrypted .= chr($_);
}

print $encrypted, "\n";

my $decrypted = RC4($key, $encrypted);

print $decrypted, "\n";
[download]

This basically just uses ord to return the numeric values of the encrypted string and place them in @characters. Probably not what you're looking for, but it can't hurt (can it? ;). I'm also curious, why exactly do you want to do this?

#!/usr/bin/perl
use strict;
use warnings;
use Crypt::RC4;
use MIME::Base64;
my $key       = "abcdefghijklm";
my $plaintext = "Hello, World!";
my $encrypted = RC4($key, $plaintext);

$encoded = encode_base64($encrypted);
$decoded = decode_base64($encoded);
print "$encoded\n";
print "$decoded\n";

my $decrypted = RC4($key, $decoded);
print $decrypted\n";
[download]