#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use open IO => ':raw';

use File::Basename;
my $progname;
BEGIN { ($progname) = fileparse $0, qr/\.pl/i; }

local $/;

my %cnt;
while (<>) {
    while ( /(\xFF\xD8 .*? \xFF\xD9)/xsg ) {
        for my $name ($ARGV . ++$cnt{$ARGV} . '.jpeg') {
            open my $fh, '>', $name or die "Can't open `$name': $!\n";
            warn "[$progname] Creating `$name'\n";
            print $fh $1;
        }
    }
}

__END__