rb@ubuntu:~$ perl -le 'print "800.00\n" =~ /\.00$/'
1
rb@ubuntu:~$ perl -le 'print "800.00\n" =~ /\.00\z/'

rb@ubuntu:~$