stripper

#!/usr/bin/perl -s

use vars qw($b);

my @start_sizes = map { -s $_ } @ARGV;

foreach my $file ( @ARGV ) {
        if( -d $file ) {
                warn "Skipping directory [$file]!\n";
                next;
                }

        my $bak = "$file.bak";
        rename( $file => $bak );

        open my $in, '<', $bak;
        open my $out, '>', $file;

        while( <$in> ) {
                chomp;
                $_ = "" unless /\S/;
                s/\s+$//;
                print $out ( "$_\n" );
                }

        unlink $bak unless $b;
        }