Help for this page
$ perl -nle 'print "$1|$2" while /\s*([a-z\s]*[a-z])\s+(\d+)/g' foo bar 1, baz qux 2, whatever 3, and some garbage. foo bar|1 baz qux|2 whatever|3