Sure:

$line =~ s/\*+~/~/g;
[download]

where the g flag should be present is if there is more the one of these sequences per line.