assign regex match to var all in one line

[Dan Muey]

IS there a better way to perhaps assign the value of $1 back to $var all in one 
statement?
EG

$var = 'hello.domain.com';
# Instead of this ::
$var =~ m/((\w+)\.(\w+)$)/; # $1 then becomes 'domain.com'
$var = $1; # then $var becomes 'domain.com'
# Perhaps a one liner version?

I know there's a way but it's Monday :(

Thanks

Dan

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]