perl -e"print('Do I understand? (yes/no): ');my $understand=<>;my $do_not; $do_not='do not ' if ($understand!~/^yes/i); print($/,'If you ',$do_not,'understand, things are such as they are.',$/)"