perl -MTie::File -e 'tie @file, 'Tie::File', $ARGV[0]; splice @file, 31, 1;' filename