Permalink
Switch branches/tags
Nothing to show
Find file
fcc5114 May 30, 2012
12 lines (7 sloc) 183 Bytes
#!/usr/bin/perl
use 5.12.0;
use re 'debugcolor';
my $string = 'GCGGCCGCAGCUGCCGUCUUGCAGGCAU';
if ( $string =~ /^(?:GC.)*+GCG(..G)/ ) {
say 'Matches GCG with XXG afterward';
}