Select Code to Download

#!/usr/bin/perl

...
    }
}

#!/usr/bin/perl

...
        match($r_pivot, $r_end, $t_pivot, $t_end);
    }
}