#!/usr/bin/perl


while (<>) {
  chomp;
  next unless /\S/;
  my @l = split //;
  warn "$_\n";
  system "perl ./check.pl @l | cjpeg -quality 100 > ch$_.jpg";
}