I am surprised no one spotted the obvious solution:

perl -e '$_=24;print+(y///c,$m=$_)&&$_*3/4 .$/'