Advertisement
Guest User

Untitled

a guest
May 10th, 2017
154
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.16 KB | None | 0 0
  1. #GREEDY VERSION
  2. my $s = "ATGXXXXXTAGXXXATGXXXXXTAG";
  3. $s ~~ m:g/ATG.** 5..*TAG/;
  4. (「ATGXXXXXTAGXXXATGXXXXXTAG」)
  5.  
  6. #WHAT I WANT
  7. ([ATGXXXXXTAG]) ({ATGXXXXXTAG])
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement