hola!
me he mirado los manuales del foro sobre expresiones regulares, pero no logro hacer lo siguiente, yo capturo parte de texto al hacer "sh version" en el router, capturo la línea concreta que me interesa, y debo sacar "Version 12.2(17a)". he probado con:
$session->print ('show version');
@salidaVER=$session->waitfor(String => "#");
##
$resul=$salidaVER;
@lineas = split(/\n/, $resul);
$ver = $lineas;
$ver2 = ($ver =~ m/, Version (.+),/);
print "versión del equipo " . $ver . "\n"; ...