mal ne frage - ist das skript aus der steinzeit ausgegraben oder ist das eins, was du gerade neu schreibst? wenn letzteres, solltest du dir unbedingt ein neues perl-buch anschaffen. require "foo.pl" macht man z.b. auch nicht mehr heutzutage, strict und warnings (use strict) ist auch standard, $1 sollte man nur benutzen, wenn die vorherige regex erfolgreich war, und hinter jedes open() gehört eine fehlerabfrage.
je eher du dir das angewöhnst, desto besser.