$data =~ s/[\[\]]//g;

##</code><code>##

$data =~ s/\[(\\sbs)\](.*)/$1$2/;