#!/usr/bin/perl $/ = '#'; while ( ) { chop; s/\n//g; print "$_\n"; } __END__ ,--. ,-------------.# / ``-o. ( Hey Woodstock )# ( | ____) )`-------------'# `-' ( .,# .|J ) <' <# "> '--. (_,=# Sch ultz# ojoshiro@lunatech.com
Source: https://ascii.co.uk/art/perl