#!/usr/bin/perl

use Image::Info qw(image_info dim);

while(<>) {
    chomp;
    $info = image_info($_);

    $comment = $info->{"UserComment"};

    @letters = split //, $comment;

    if(ord $letters[0] == 0 && ord $letters[1] != 0) {
	splice @letters, 0, 8;
	for($i = 0; $i < $#letters; $i++) {
	    if(ord $letters[$i] == 0) {
		$#letters = $i - 1;
	    }
	}
	$comment = join '', @letters;
	print "$_ = [".$comment."]\n";
	system("exifcom $_ -w \"$comment\"");
    }
}