Select Code to Download

sub put_bracket
{
...
    print "$str\n";
    return ;
}

my $s5 ='CCACCACCACCTGTC';        my @a5 = qw(CCACC);
put_bracket($s5,\@a5);            # should be [CCACCACCACC]TGTC

sub put_bracket
{
...
    print "$str\n";
    return ;
}

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/