find . -type f | perl -MPath::Tiny -lne '/^(.+?)\?/ && path($_)->move($1)'