перекодировка файла

*  net-mail/base64
      Latest version available: 1.3
      Latest version installed: 1.3
      Size of downloaded files: 173 kB
      Homepage:    http://www.fourmilab.ch/webtools/base64/
      Description: Command line program that encodes/decodes files in base64
      License:     as-is

perldoc MIME::Base64

Dimez -персональное спасибо, действительно именно там в модулях и видел и когда-то давно пользовался
Всем спасибо!

#!/bin/awk -f
BEGIN{n["/"]=63;n["+"]=62;for(k=26;k;){n[sprintf(f="%c&
quot;,--k+65)]=k;if(k<10)
n[sprintf(f,k+48)]=k+52;n[sprintf(f,97+k)]=26+k}}{for(i=1;i<=length;){if((s=\

substr($0,i++,1))in n){c=n[s];if(1==k%=4){b=z*4+(c-(z=c%16))/16}else if(!k)z=c
else if(k==2){b=z*16+(c-(z=c%4))/4}else if(k==3)b=z*64+c;if(k++)printf(f,b)}}}

&quote; заменить на кавычки

Еще раз попробую:
#!/bin/awk -f
BEGIN{n["/"]=63;n["+"]=62;for(k=26;k;){n[sprintf(f="%c& quot;,--k+65)]=k;if(k<10)
n[sprintf(f,k+48)]=k+52;n[sprintf(f,97+k)]=26+k}}{for(i=1;i<=length;){if((s=\
substr($0,i++,1))in n){c=n[s];if(1==k%=4){b=z*4+(c-(z=c%16))/16}else if(!k)z=c
else if(k==2){b=z*16+(c-(z=c%4))/4}else if(k==3)b=z*64+c;if(k++)printf(f,b)}}}