Help for this page

Select Code to Download


  1. or download this
    my $n = 534587;
    print "even\n" if($n % 2 == 0);
    
  2. or download this
    my $n = "534587";
    print "even\n" if ($n =~ /[02468]$/);