NOTE_TEXT <- "blah blah blah...\nSlide rule exam does not provoke symptoms.\nImPACT Test Date: ... (baseline done at school)\nVerbal Memory Composite\n98\n98%\nVisual Memory Composite\n81\n69%\nVisual Motor Speed Composite?38.83\n70%\nReaction Time\n0.59\n56%\nImpulse Control\n9\nTotal Symptom Score\n3\nImPACT Test Date: ... (post-injury done at school)\nVerbal Memory Composite\n54\n<1%\nVisual Memory Composite\n35\n<1%\nVisual Motor ... blah blah blah"
re = ".*Verbal Memory Composite\n[^\n0-9]*(\\d+)\\S*\n[^\n0-9]*(\\d+)\\S*\n.*"
sub(re,'\\1',NOTE_TEXT)
sub(re,'\\2',NOTE_TEXT)
Tk9URV9URVhUIDwtICJibGFoIGJsYWggYmxhaC4uLlxuU2xpZGUgcnVsZSBleGFtIGRvZXMgbm90IHByb3Zva2Ugc3ltcHRvbXMuXG5JbVBBQ1QgVGVzdCBEYXRlOiAuLi4gKGJhc2VsaW5lIGRvbmUgYXQgc2Nob29sKVxuVmVyYmFsIE1lbW9yeSBDb21wb3NpdGVcbjk4XG45OCVcblZpc3VhbCBNZW1vcnkgQ29tcG9zaXRlXG44MVxuNjklXG5WaXN1YWwgTW90b3IgU3BlZWQgQ29tcG9zaXRlPzM4LjgzXG43MCVcblJlYWN0aW9uIFRpbWVcbjAuNTlcbjU2JVxuSW1wdWxzZSBDb250cm9sXG45XG5Ub3RhbCBTeW1wdG9tIFNjb3JlXG4zXG5JbVBBQ1QgVGVzdCBEYXRlOiAuLi4gKHBvc3QtaW5qdXJ5IGRvbmUgYXQgc2Nob29sKVxuVmVyYmFsIE1lbW9yeSBDb21wb3NpdGVcbjU0XG48MSVcblZpc3VhbCBNZW1vcnkgQ29tcG9zaXRlXG4zNVxuPDElXG5WaXN1YWwgTW90b3IgLi4uIGJsYWggYmxhaCBibGFoIgpyZSA9ICIuKlZlcmJhbCBNZW1vcnkgQ29tcG9zaXRlXG5bXlxuMC05XSooXFxkKylcXFMqXG5bXlxuMC05XSooXFxkKylcXFMqXG4uKiIKc3ViKHJlLCdcXDEnLE5PVEVfVEVYVCkKc3ViKHJlLCdcXDInLE5PVEVfVEVYVCk=