Save Multiple Worksheets as New Workbooks Based on Sheet Prefixes

I have a macro that I use to generate new workbooks based off of the existing worksheet names.

So, if a worksheet is named "10", a new workbook will be generated named "10.xlsx".

However, if I have two sheets named "10[something1]" and "10[something2]", is there a way to get both of those tabs pushed into a new workbook named "10[something]"

Essentially, the macro should be able to run through all sheets in the workbook named similary as the examples above, and perform the same save functionality.

The code that I have below is what I am currently using to perform the single worksheet to workbook save, but would really appreciate some help on performing the aforementioned:

Sub BSplitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" 'you can change path and file type here
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Thanks in advance