Return to Answer

perl -0ne 'print sort /(#+[^#]*)/g' file.txt

• perl -0 slurps the entire file
• /(....)/g match and extract the records
• print sort ... sort and print them

perl -0777 -ne 'print sort /(#+[^#]*)/g' file.txt

• perl -0777 -n slurps the entire file (see also perl -gn in newer versions of perl).
• /(....)/g match and extract the records
• print sort ... sort and print them

perl -0ne 'print sort /(#*[^#]*)/g' file.txt

• perl -0 slurps the entire file
• /(....)/g match and extract the records
• print sort ... sort and print them

perl -0ne 'print sort /(#+[^#]*)/g' file.txt

• perl -0 slurps the entire file
• /(....)/g match and extract the records
• print sort ... sort and print them

perl -0ne 'print sort /(#*[^#]*)/gs' file.txt

• perl -0 slurps the entire file
• /(....)/g match and extract the records
• print sort ... sort and print them

perl -0ne 'print sort /(#*[^#]*)/g' file.txt

• perl -0 slurps the entire file
• /(....)/g match and extract the records
• print sort ... sort and print them