sub cleaner($dirty)