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