perl -e 'print qq(Gotcha!\n) unless print STDIN qq(Hello)'