This is a very old module in perl 4 syntax. To use it save jcode.pl within you perl @INC path. Here is a script to do it for you (obviously you will need to set the correct path to where you saved the script:

#!/usr/bin/perl
use File::Copy;
# point this to where the script currently is
my $jcode_path = '/home/me/scripts/jcode.pl';
copy( $jcode_path, "$INC[0]/jcode.pl" );
[download]

This will place a copy of the script where perl can find it. Now you just go:

#!/usr/bin/perl
require "jcode.pl";
# now you can use it as per perl 5 synopsis
$code = jcode::getcode(\$line);
[download]

That being said don't bother with this as there are some good JCODE modules on the ever faithful CPAN that do what you want, have much better documentation and will do the conversion in two lines (see the docs)

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print