Shell Programming and Scripting

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

my ($destdir, $bakdir);

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

die qq[Usage: perl $0 --destdir=<dir> --bakdir=<dir> <files>\n] 
        unless defined $destdir &&
                   defined $bakdir &&
                   -d $destdir &&
                   -d $bakdir;


for my $file ( @ARGV ) {
        next if -s $file;
        my $efile = substr $file, 0, 8;
        do {
                local $^I = q[.bak];
                local @ARGV = $efile;
                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], $_;
                }

                {
                        my $f = $efile . $^I;
                        move( 
                                $f,
                                File::Spec->catfile( $bakdir, $f ) 
                        ) || warn qq[Couldn't move file $f\n];
                }

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

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

                {
                        my $f = $efile . qq[Service];
                        move(
                                $f,
                                File::Spec->catfile( $bakdir, $f )
                        ) || warn qq[Couldn't move file $f\n];
                }
        }

}
$ perl ../script2.pl  --destdir=../IN --bakdir=../failed /tmp/grep/*