$connection->send("$cmd\r");
if(length($cmd) > "25")
{
        $cmd = substr($cmd, -20);
}
$connection->expect(8, '$cmd');
$connection->expect($timeout, $prompt);
$data = $connection->exp_before();
print "Command DATA: \n$data\n";

##</code><code>##

cat /etc/testfile | awk '{ FS = ":" ; print $1 }' | grep -v '^[#*]' | grep -v '^$'

##</code><code>##


":" ; print $1 }' | grep -v '^[#*]' | grep -v '^$'          <
Command output 1
(... SNIP ...)Command output xx