how can I remoove all words in a line except one

[zaza230]

this is the content of $error :

$error="error on SnmpMgrRequest 10065"

I would like to remoove all word, except "error"

my goal is to make $error=error

how can I do it
thank very much in advance

 

[raider2001]

So you just want the first word in the string?

$error = "error on SnmpMgrRequest 10065";
$error =~ s/^(\w+).+/$1/;

 

[BenRussell]

Or this might work:

$error =~ s/error(.*?)/error/ig; - Ben Russell
- President of Intracor Technologies (

http://intracor.hypermart.net)

 

[sampsonr]

You can use split to force the string into two strings, one having the first word and the other having what is to be discarded.