@matches = $string =~ /~?./g;