$ perl delight.pl
Bareword found where operator expected at delight.pl line 21, near "#l
+ine 3 is now "something"
  (Might be a runaway multi-line "" string starting on line 19)
        (Missing operator before something?)
String found where operator expected at delight.pl line 21, at end of 
+line
        (Missing semicolon on previous line?)
syntax error at delight.pl line 21, near "#line 3 is now "something "
Can't find string terminator '"' anywhere before EOF at delight.pl lin
+e 21.
[download]

It now is fixed

$ perl delight.pl
Can't unlink('file.txt'): No such file or directory at delight.pl line
+ 13
Can't unlink('file.txt'): No such file or directory at delight.pl line
+ 27
END failed--call queue aborted at delight.pl line 33.
[download]

But I took the following next logical extra forward step in improvement