This is a perl script to extract the junctions in a tophat BED file based on the junctions in a GTF file. It reads th BED file junctions and junctions in the GTF, then it prints the junctions overlapping between the two.