if ( $_ =~ /(\d+)\D(\d+)\D(\d+)/ ) { ...