#!/usr/bin/perl
use strict;
use warnings;

perl -i.old -ne 'print unless $.==1 or eof' /home/file_20140407.txt