if ($overwrite =~ (m^/[nN]{1}$/)) { redo FILENAME; }