$s = (<>);
for('00'..'99'){print $_." missing\n" if $s!~/$_/}
for('00'..'99'){print $_." duplicated\n" if index($s,$_) >= 0 and index($s,$_,index($s,$_)+1) >= 0}