Select Code to Download

$ time perl ../ex_pattern_matching.pl
<GGCGATGGCGTTCTAGCGCGTAAAA>
...
real    0m37.721s
user    0m37.656s
sys     0m0.015s

#!env perl
#
...
        "ovr"       => sub { return ovr($long, 0)  },
        "poz"       => sub { return poz($long, 0)  },
    });