print $a =~ /[02468]000$/
? 'つるー'
: 'ふおるす';

でもやっぱり $a % 2000 だよなぁ。。。＠こっちの方が遅かったりして。