Was ist genau das Ziel?

goto ist nicht so toll, zum Finden von Dateien gibt es z.B. File::Find, zum Verschieben gibt es File::Copy.

Das goto kann man durch eine while-Schleife ersetzen. So wie es jetzt ist, ist es eine Endlosschleife. Ist das so gewollt?

Wenn Du ein Modul nimmst, wird auch das ganze Escaping von Shell-Sonderzeichen unnötig (sollte es zumindest).