$raw="" ;
$count=1;

while(<>) { 
        if( m/Content-type:/ or m/^$/ ) { print "ignore\n"; }
        elsif( m/Content-Length/ ) { $crap = <>; }
        elsif( m/--BoundaryString/) {
                open(my $fh, ">", "out$count.jpg") or die "Can't open > out$count.jpg $!";
                print $fh $raw;
                close($fh);
                $raw="";
                $count++;
        }
        else { $raw .= $_ }
}