Perl code - 50 lines - codepadeval eval '"'. ('['^"\.").( ('[')^ '(').('`'|'%'). ('{'^'['). ('['^'(').('['^'/' ).('['^')' ).('`' |')').('`'|'#').('[' ^'/').';'.('!'^'+'). ('['^'.').('['^"\(").( '`'|'%').('{'^"\[").( '['^',').('`'|'!').('[' ^')').('`'|('.')).( '`'|')').('`'|'.').(('`')| "'").('['^'(') .';'.('!'^'+').('!'^'+').('[' ^'+').('['^')' ).('`'|')').('`'|'.').('['^'/'). ('{'^'[').'\\'. '"'.('`'^'(').('`'|'%').('`'|',').
