unless ($current && $want & $current) {
my $tmp = substr($string, 0, pos($string)- length($match));
$tmp .= '>'. $match .'<--here'. substr($string, pos($string));
unless ($current && $want & $current) {
my $tmp = substr($string, 0, pos($string)- length($match));
$tmp .= '>'. $match .'<--here'. substr($string, pos($string));