In allen Fehlermeldungen mit 'global symbol' benutzt du eine Variable die du nicht vorher deklariert hast.
Das liegt wohl daran, dass ein '~' am Ende von deinem print() fehlt.
Daher auch der Syntax error nehme ich mal an.

Das ganze wird dir am Ende auch noch gesagt: 'search pattern not terminated', jedenfalls würde ich sagen, dass es auch von dem fehlenden ~ kommt.

MfG PerlProfi