how 'bout int, the integer function.

if ( $base/3 != int($base/3)){then do this;}

BTW 'perldoc -f int' would have told you.
perldoc is your friend

UPDATE:This is also a FAQ 'perldoc -q integer' though I like my solution better than the regexps

grep

grep> chown linux:users /world