#!/usr/local/bin/perl 
$input = $ARGV[0];
open(thefile,"$input");
@file = <thefile>;
close thefile;
open(newfile,">$input");
$counter = 0;
foreach $line(@file) 
{ 
        $counter++;
        if ($counter != 1) 
        { 
                $line =~ s/\s+$//;
                $line =~ s/^\s+//;
        }
        print newfile "$line";
} 
close newfile;