$x =~ m[\d+\s*\w+];
$x =~ s[\d+\s*\w+][_];