open(file, .. ) or die
{
foreach $line (<file>) {
# replace each line with empty line .. 
}