($shortname) = ($device =~ /^\d+\./ $interface =~ /^\d+\./) ? ...

##</code><code>##

$rc = sendtrap("$device", "$summary", "$descr", $intfc" "NODE_DOWN");