${@@=('')x4;${$f=ddngsntrdl=~/$1/i*"@+"*2},map$_.=((split$/,'
__
_/_L\_
o----o
_
o.o
=(.)=
! !
o
/:\
\:/
^
__
(oo)
(~~)
/__\
/\
/,,\
/,,,,\
||
))
((.)
||
|| ')[$f++].$")x($&*1||1),@@while/\PP*(dd|tr|ng|sn|car|dl)/gi;print@@,$,=$/}for<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).