in reply to Deleting lines prior to a date!

Look at Date::Calc for date arithmetic. You could print out only the lines you want to a separate file, then delete or back up the original.

s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.