my (@array)=$telnet->cmd(string => 'ls', prompt => '/=>/');

##</code><code>##

my ($a, $b, $c)=$telnet->cmd(string => 'ls', prompt => '/=>/');

##</code><code>##

btm.swi
 secondary.swi
 cfg/