You can do something like : $out =~ m/(^.*Name\:.*$)/xo && $name = $1;
or
if ($out =~ m/Name\:/xo)
{
$name = $out;
}
---
Legendo metulas imitabere cancrum
Olivier G�rault
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
