while ($fol_wzg_cel =~ /<B6>/) {$fol_wzg_cel =~ s/<B6>/%B6/;}

# as:

$fol_wzg_cel =~ s/<B6>/%B6/g;