$comment =~ s/$l/****/g;