Shell Programming and Scripting

$ cat script2.pl 
use warnings;
use strict;
use Getopt::Long;
use File::Copy qw( move );
use File::Spec;

my ($destdir, $bakdir);

GetOptions(
        q[destdir=s] => \$destdir,
        q[bakdir=s] => \$bakdir,
) or die qq[ERROR reading arguments\n];

die qq[Incorrect arguments\n] 
        unless defined $destdir &&
                   defined $bakdir &&
                   -d $destdir &&
                   -d $bakdir;

unless ( grep { -z } @ARGV ) {
        die qq[There is no file of zero size\n];
}

@ARGV = grep { ! -z } @ARGV;

my @prev_line;

while ( <> ) {
        chomp;

        if ( /\A\*\*/ .. eof ) {
                next if m/\A\s*\Z/;
                if ( m/¦/ ) {
                        if ( @prev_line ) {
                                printf qq[%s\n], pop @prev_line;
                        }
                        push @prev_line, $_;
                        next;
                }

                printf qq[%s\n], (pop @prev_line || qq[]) . $_;
                next;
        }

        printf qq[%s\n], $_;
}
continue {
        if ( eof ) {
                move( 
                        $ARGV . $^I,
                        File::Spec->catfile( $bakdir, $ARGV . $^I ) 
                ) || warn qq[Couldn't move file $ARGV . $^I\n];

                move(
                        $ARGV,
                        File::Spec->catfile( $destdir, $ARGV )
                ) || warn qq[Couldn't move file $ARGV\n];

        }
}
$ perl -i.bak script2.pl --destdir=./dest --bakdir=./bak /tmp/grep/*

GURD0906
GURD0906trim$$
GURD0906Service

GURD0906trim$$
GURD0906Service