Select Code to Download

$sshMTT1->clear_accum();
$sshMTT1->expect(10,[qr/\$[\s]*/=> sub {$sshMTT1->send("grep <<<<<<*PA
+TTERN>*>>>>");}]);
...
$sshMTT1->send("\cC");
$exactOutput = $Output[3];
$exactOutput =~ tr/\cM//d;