Select Code to Download

 
#! perl -slw 
use strict; 
...
print ' ' x $_->[ OFFSET ], uc( $_->[ BASESEQ ] ), $_->[ BASESEQ ] x $
+_->[ REPEATS ] for @rls; 

__END__

 
[ 2:44:41.87] P:\test>390333 -L=70 -RANGE='a'..'b' 
abaabbaaaabbaaaabaabaabaaaababaababbbbbaababbaabbaaaaabbbbaabbaababbba
+ 
...
aabbbbaaabbbabababbbabbbbbababababbaabaabaaaabaababbaabbabbabbbbaabbbb
+ 
Aa BBbb Aaa BAbaba BBbb BABAbaba BAAbaabaa AABaab ABBabbabb Bb Aa BBbb

 
#! perl -slw 
use strict; 
...
print scalar localtime, ' : ', $encoded, $/; 
$encoded =~ s[\((\d+):([^)]+)\)][$2 x $1]eg; 
print scalar localtime, ' : ', $encoded, $/;

 
[ 6:10:08.93] P:\test>390333 -L=70 -RANGE='a'..'b' 

...

Sun Sep 12 06:11:46 2004 : 
bbaaaabbabbbbababaabbbaaababbababbbbbbbabbbbabaaaabaababaaaabbaabbbaaa