( $ ||= open$ ) ,$ ^X) ;; X :; { $ ;+= print if ($_ = lc getc $)) eq# } ( split$ ,,q#- just another perl hacker# ) [ $ ;]; eof$ ( ?die$ /: redo } 060630# ]