This is a perl script to extract line in a SAM file with the criteria specified by user.