perl script for assembler instruction checking