s/^ ~ .* /@{[  ${^MATCH} =~ tr#_#+#r  ]}/xp;