Perl code for predicting interstrand G-Quadruplex topologies