open LIBRARY, $lib or die $!;
{
local $/ = "\223\231\223\204\232";
while (my $data = <LIBRARY>) {
    while ($data =~ /([[:print:]]{3,}).*?Export: ([[:print:]]+)/gms) {
        $comment{$1} = $2 ;
    }
}
}

Example 1: Finding the iPhoto album description.