Shell Programming and Scripting

#!/usr/bin/perl
 
use strict;
 
my $count;
my $queue;
my $var;
my $tancCheck;
my $numOfFilesTMP;
my $numOfFiles;
my $suffix;
 
browseMsgs();
messageMove();
exit(0);
sub browseMsgs 
{
`rm -f MQSIFailMsgs*`;
`./mqcapture -f parmcapt -o MQSIFailMsgs -d`;
}
sub messageMove 
{
       $count=0;
       `rm -f output`;
       $numOfFilesTMP=`ls MQSIFailMsgs* | wc -l`;
       $numOfFiles = $numOfFilesTMP - 1;
       if ( -z './MQSIFailMsgs' ) {
       print "MQSIFailMsgs is empty!\n";
       }
       if ( $count == 0 ){
       $suffix = "";
       } elsif ( $count != 0 ){
       $suffix = $count;
       }
       while ( $count <= $numOfFiles )
       {
       open FAILED, "./MQSIFailMsgs$suffix";
       while(<FAILED>)
             {
              my $queue;
              my $tancCheck;
              ##local $/ = undef;
              $var = $_;
              ($var) =~ m/OPT_APP_GRP(.*)OPT_MSG_TYPE/s;
                     print "line 48 $1\n";
                     if ($1 eq " FROM_BOB ") {
                        open NEXTCHECK, "./MQSIFailMsgs$suffix";
                        $tancCheck =$_;
                        ($tancCheck) =~ m/OPT_MSG_TYPE(.{7})/s;
                              print "line 55 $1\n";
                              if ($1 eq " A_ABCD") {
                              $queue = "FROM_BILL";
                              } else {
                                     $queue = "FROM_BOB";
                                     }
                              close NEXTCHECK;
                     print "line 57 $queue\n";
                     } elsif ($1 eq " SANDRA ") {
                     $queue = "FROM_SANDRA_PP";
                     print "line 60 $1\n";
                     } elsif ($1 eq " BEN_MSGS ") {
                     $queue = "FROM_BEN";
                     print "line 63 $1\n";
                     } elsif ($1 eq " FROM_SUSAN ") {
                     $queue = "FROM_SUSAN";
                     print "line 66 $1\n";
                     } elsif ($1 eq "") {
                     print "line 68 $1\n";
                     $queue ="noQueue";
                     }
              if ($queue eq "noQueue") {
              print "no queue defined!\n"; exit(1);
              }
              `/a/b/c/d/e/f -IMQSI_FAIL -o$queue -mQM_F -L1`;
              $count = $count + 1;
              print "$queue\n";
              open FILE, ">>./output\n";
              print FILE "Message number $count has been put to $queue\n"; close FILE;
 
              }
      close FAILED;
      }
}