In this line, if($line =~ /INSERT_NEW_ENTRY/g){ there is no need for the "g".

--
$you = new YOU;
honk() if $you->love(perl)