if ( $x=~ /([^.]+)\.(\S+)/ ) { ... }