Help for this page

Select Code to Download

Select or download this

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

ABC1|2

Select or download this

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

|ABC1|2|3|4