$foo++  # increment $foo

# Greet the user
print "Hello!\n";

If ($foo =~ /bar/) {  # If $foo contains 'bar'