Old perl script for dumping JPEG images from an mbox

photo_blog.perl

#!/usr/bin/perl

use MIME::Base64;
use Encode 'from_to';

open(MBOX, $ARGV[0]);
@mailbox = <MBOX>;

$b = join('', @mailbox);
@a = split(/\nFrom /, $b);

foreach $mail (@a) {
    if ($mail =~ m/Subject: .*Foto/) {

        $mail =~ m/Content-Type: TEXT\/PLAIN;.*BASE64\n\n(.*)----_.*Content-Disposition: attachment;\n.*?filename="(.*?)"\n.*?\n\n(.*)----_/s; 

        #print $1;
        #print $2;

        $c = join('', $3);

        $file = "/tmp/$2";
        open(FILE, ">$file");
        print FILE decode_base64($c);
        close(FILE);

        #print pack("C*", unpack("U*", decode_base64($1)));
        $text = decode_base64($1);
        print "$text\n";

        print length($text);

        print "\n";
    }
}
close(MBOX);