[ create a new paste ] login | about

Link: http://codepad.org/KwyDtV6h    [ raw code | output | fork ]

Perl, pasted on Jul 11:
1
2
3
4
5
6
7
$syb = 'aaaatttt';
$syb =~ s/
(?:(?<!a)a|(?<!t|a)t)
(?:(?<=a)a|(?<=a)t|(?<=t)t){3,6}
(?:(?<=a)(?!a)|(?<=t)(?!t))
/\U$&/gix;
print $syb;


Output:
1
AAAAtttt


Create a new paste based on this one


Comments: