#! /usr/bin/perl -w
use strict;
my $a = <STDIN>;
$a =~ (m/\d\d\.\d\d/) || (m/\$\d\d\d\.\d\d\d/) || (m/\$\.\d\d/);
print "$a is true";