my $string="foobar";

my $base32;

my $bin=unpack 'B*',$string;

print "string: $string\nbin: $bin\n";

print "original length of bin: ",length($bin),"\n";

my $bm5=length($bin) % 5;

$bin=($bm5?('0'x(5-$bm5)):'').$bin;

print "corrected length of bin: ",length($bin),"\n";

while($bin=~s/(.....)//)
{	
	my $dec=oct('0b'.$1);
	
	$base32.=$dec<26?chr(ord('a')+$dec):chr(ord('0')+$dec-26);
}

print "base32: $base32\n";

print "length of base32: ",length($base32),"\n";

##</code><code>##

string: foobar
bin: 011001100110111101101111011000100110000101110010
original length of bin: 48
corrected length of bin: 50
base32: dgn3xweyls
length of base32: 10