El módulo de Perl MIME::Base64 proporciona funciones para codificar y descodificar cadenas en y desde base64.
Base 64 es un sistema de numeración posicional que usa 64 como base. Es la mayor potencia de dos que puede ser representada usando únicamente los caracteres imprimibles de ASCII. Esto ha propiciado su uso para codificación de correos electrónicos, PGP y otras aplicaciones. Todas las variantes famosas que se conocen con el nombre de Base64 usan el rango de caracteres A-Z, a-z y 0-9 en este orden para los primeros 62 dígitos, pero los símbolos escogidos para los últimos dos dígitos varían considerablemente de unas a otras. Wikipedia
Las funciones que nos ofrece son las siguientes:
encode_base64($str);
encode_base64($str, $eol);
decode_base64($str);
Os dejo un par de ejemplos muy sencillos, podéis encontrar más en cPan.org.
Decodificación:
#!/usr/bin/perl
use warnings;
use strict;
use MIME::Base64;
my $string_codificada = "RXN0byBlcyB1bmEgcHJ1ZWJh";
my $string = decode_base64($codificado);
print "String ($string_codificada) decodificada:\n ".$string;
Codificación:
#!/usr/bin/perl
use warnings;
use strict;
use MIME::Base64;
my $string = 'Esto es una prueba';
my $string_codificada = encode_base64($string);
print "String ($string) codificada:\n".$string_codificada;