while (<>) { s/([^^#])/$1$1/g if ($. > 4); print; }