Modulus operator
#!/usr/bin/perl $var=0; $var %= 3; # Modulus print "The remainder of \$var/3 is $var\n";