(Perl) Deal with ISMN values