All pastes #258841 Raw Edit

gvy

public text v1 · immutable
#258841 ·published 2006-11-26 21:40 UTC
rendered paste body
#!/usr/bin/perl
use MIME::Base64;
while (<>) {
        chomp;
        if (/^~/) {
                print decode_base64($_), "\n";
        } else {
                print $_, "\n";
        }
}