Perl/Réseau HELP !

Bonjour,

Je suis novice en Perl, et cela fait 3 jours que je suis sur le même problème, à savoir :

J'ai créé un script en perl de connexion Telnet à un équipement réseau, qui exécute une commande.
La réponse de cette commande telnet est stockée dans une variable.

Maintenant, je veux récupérer la fin de cette réponse, à savoir un nombre et je lutte depuis entre les split etc...

Ci-joint le code :

use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>5, Errmode=>'die', Prompt=> '/>/');
$telnet->open('ip address');
$telnet->waitfor('/login : $/i');
$telnet->print('toto');
$telnet->waitfor('/password : $/i');
$telnet->print('titi');
$telnet->waitfor('prompt $/i');
@output = $telnet->cmd("show mac-address-table count"); # Commande exécutée sur le device
$telnet->close;

$result1 = @output[-2]; # Récupération de l'avant dernière ligne contenant le nombre de Mac @
print $result1;

Cela donne :

Total MAC Address In Use = 21


Finalement, je voudrais que mon scipt me renvoie 21 uniquement,
et non pas Total MAC Address In Use = 21

Please HELP !