get-mail-header.perl

#!/usr/bin/perl -w
# http://newtoypia.blogspot.com/2015/09/gmail-mbox.html
# 備份/清空 gmail， 以及命令列查詢/切割 mbox 格式檔案 
use MIME::Base64;

while (<STDIN>) {
    foreach $kw (@ARGV) {
        next unless (($line) = /^$kw:\s*(.*)/);
        $line = decode_base64($1)
            if $line =~ /=\?utf-8\?\w+\?(.*)/i;
        print "$kw: $line\n";
    }
}