Shell Programming and Scripting

awk '{sub(/^[\t]+/, ""); print}'

#!/usr/bin/perl

#use strict;
use warnings;

  sub search_pattern
      {

          my $file_name = $_[0];

          my $search = $_[1];

          open(LOGFILE, $_[0]) or die("Error: cannot open file '$_[0]'\n");

          while (<LOGFILE>)
                {


if ( $_ =~ /$search/ ) {

#print " First Occurance:$val \n";

my $val = $';

`awk '{sub(/^[\t]+/, ""); print "$val"}'`


print "line number:$.\n";

last;
}
}
}

my $file_n ="test.txt";
my $search_p = "total rejected rows:";
&search_pattern($file_n, $search_p);