#!/usr/bin/perl
use MIME::Base64;
while (<>) {
        chomp;
        if (/^~/) {
                print decode_base64($_), "\n";
        } else {
                print $_, "\n";
        }
}