$message = "\n +_ ABC1_\n2 3 4";
print join'|', ( grep $_, split /[^A-Za-z0-9]+/ , $message )[0,1];

ABC1|2