Select Code to Download

sub seq1 {
    my $r;
...
    push @R, $r if length $r;
    @R;
}

sub seq2 {
    my @x = shift =~ m/((.)\2*)/g;
    map $x[2*$_], 0..@x/2-1;
}