%z=(sn,[' __ ',qw{(oo) (~~) /__\\}],ng,[' o ','/:\\','\\:/',' ^ '],tr=>[' /\\ ',' /,,\\ ','/,,,,\\',' || '],dl,[' )) ','((.)',' || ',' || '],car,[$"x6,' __ ','_/_L\\_','o----o'],dd,[' _ ',' o.o ','=(.)='," ! ! "]);for(<>){for$i(0..3){for(split/,/){$r=/\d+/?$&:1;for$k(keys%z){/$k/i&&print+($z{$k}->[$i].$")x$r}}print$/}print$/}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).