>hsa_circ_0075116|chr5:175956288-175956388-|NM_014901|RNF44 FORWARD
-4.6 12 .. 35 xxxxGTGTGTGGTCT GC TTCAGTGACTTCGAGGCGCG GC AGCTGCTCCGAGTCC
-5.5 11 .. 36 xxxxxGTGTGTGGTC TGC TTCAGTGACTTCGAGGCGCG GCA GCTGCTCCGAGTCCT
-7.8 10 .. 37 xxxxxxGTGTGTGGT CTGC TTCAGTGACTTCGAGGCGCG GCAG CTGCTCCGAGTCCTC
-4.3 9 .. 38 xxxxxxxGTGTGTGG TCTGC TTCAGTGACTTCGAGGCGCG GCAGC TGCTCCGAGTCCTCC
-4.6 31 .. 41 CAGTGACTTCGAGGC GCGG CAG CTGC TCCGAGTCCTCCCCT
-5.7 28 .. 44 CTTCAGTGACTTCGA GGCGCGG CAG CTGCTCC GAGTCCTCCCCTGCA
-5.1 20 .. 49 GTGGTCTGCTTCAGT GACTT CGAGGCGCGGCAGCTGCTCC GAGTC CTCCCCTGCAACCAT
-4.3 27 .. 56 GCTTCAGTGACTTCG AGGCG CGGCAGCTGCTCCGAGTCCT CCCCT GCAACCATGAGTTCC
-5.6 31 .. 58 CAGTGACTTCGAGGC GCGG CAGCTGCTCCGAGTCCTCCC CTGC AACCATGAGTTCCAC
-5.4 72 .. 82 GCAACCATGAGTTCC ACAC CAA GTGT GTTGACAAGTGGTTG
-7.7 71 .. 83 TGCAACCATGAGTTC CACAC CAA GTGTG TTGACAAGTGGTTGA
-4.2 70 .. 84 CTGCAACCATGAGTT CCACAC CAA GTGTGT TGACAAGTGGTTGAA
>hsa_circ_0014931|chr1:160293220-160293320-|NM_001098398|COPA FORWARD
-5.5 11 .. 36 xxxxxGGTCACGATC GTG GAGTAAACTGGGCTGCCTTC CAC CCCACTATGCCCCTT
-4.5 22 .. 40 GATCGTGGAGTAAAC TGGGCTG CCTTC CACCCCA CTATGCCCCTTATTG
-4.1 11 .. 41 xxxxxGGTCACGATC GTGGAG TAAACTGGGCTGCCTTCCAC C-CCAC TATGCCCCTTATTGT
####
-4.6 12 .. 35 xxxxGTGTGTGGTCT GC TTCAGTGACTTCGAGGCGCG GC AGCTGCTCCGAGTCC
-5.5 11 .. 36 xxxxxGTGTGTGGTC TGC TTCAGTGACTTCGAGGCGCG GCA GCTGCTCCGAGTCCT
-7.8 10 .. 37 xxxxxxGTGTGTGGT CTGC TTCAGTGACTTCGAGGCGCG GCAG CTGCTCCGAGTCCTC
-4.3 9 .. 38 xxxxxxxGTGTGTGG TCTGC TTCAGTGACTTCGAGGCGCG GCAGC TGCTCCGAGTCCTCC
-4.6 31 .. 41 CAGTGACTTCGAGGC GCGG CAG CTGC TCCGAGTCCTCCCCT
####
#!/usr/bin/perl
use strict;
use warnings;
open my $hairpin_file, '<', "test.hairpin", or die $!;
my %HoA_sequences;
while (my $line = <$hairpin_file>){
if ($line =~ /^>hsa/){
$HoA_sequences{$line} =
## Do I provide the key for the hash as soon as I read in the line bearing the sequence name?
## And can I create a hash with a key but no hash? I'm guessing not. :/
}
}
####
if ($line =~ /$RE{num}{real}\s+($RE{num}{real})\s..+($RE{num}{real})+/){
my $start = $1 && my $end = $2;
## Once captured how do I continue to the next line to query if the
## value is - or + of the start and end values
}