extract a string from variable text

My final master piece FILTERXML()

Formula:

=FILTERXML("<F><d>"&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,"_"," "),"-"," "),")"," ")," ","</d><d>")&"</d></F>","//d[translate(.,'1234567890','')!=. and string-length()>3 and not(starts-with(., 'P'))][1]")