#!/usr/local/bin/perl
use Net::Telnet;
open ($inputlog, ">out1.log");
$host = "xxx";
$port = "xxxx";
$box = new Net::Telnet(Timeout=>20, Errmode=>'die');
$box->open(  Host => $host,
             Port => $port,
        );
 $box->input_log($inputlog);
$box->cmd("i");
$box->close;


open(OUTFILE,">out2.txt");
for($i=26;$i<=40;$i++)
{
my @array = `awk 'NR==$i' out1.log`;
foreach(@array)
{
if($_ =~ m/^\d+\. .*/ig )
     {
print OUTFILE ("$&\n");
}
}
}