There's also a shorthand notation for a one-line IF-THEN conditional block STATEMENT if ( EXPR ); For example $happy = 1; print ":^)\n" if ( $happy ); This is quite handy