Skip, then slurp:

use strict;
use warnings;

while( <DATA> ){
        last if /^Status of the log/;
}
my @lines = do { local $/; <DATA> };
print @lines;

__DATA__
hostname
06-NOV-13
log status 
Status of the log
1    248641
2    211749
3    246008
4    262190
5    175450
[download]

 perl -ne 'push @arr,$_ if m/^Status of the log/..undef}{print for @ar
+r'  Your-log-file-name.here
[download]

Hi,

Thanks for the code. I need small modification. I need to remove that status of the log line and print rest of the lines below it

It is against the spirit of this site to request someone to write code for you without any attempt on your part, because the main purpose is education, which usually requires effort on the part of the recipient.

That said, here is some code that will do the job, but I'm hoping you will try to understand how it works, and if you have difficulty with that, please post specific questions explaining how much you have understood, and what part you have difficulty with.

 perl -ne 'push @arr,$_ if $x;$x||=m/^Status of the log/}{print for @a
+rr' Your-file.name
[download]

Note - the only reason the code contains a "push @arr" is because you originally requested the contents be placed in an array.

             When in doubt, mumble; when in trouble, delegate; when in charge, ponder. -- James H. Boren

I want to get all lines after status of the log to end of the line

Or start to print as soon as you meet the desired input.

my $print_this = 0;
while (<$IN>) {
     print if $print_this;
     $print_this = 1 if /^Status of the log/;
}
[download]