$str1 = "ATC[GT]CC";
$str1 =~ s/\[(.*?)\]//;
if($1){
foreach (split //,$1){
    push @$ans, "$`$_$'";
}
}
else{
    push @$ans, $str1;
}

print join "\n", @$ans;