$line =~ s/\*+~/~/g;