my $dm=08/14/04;

Since the value isn't in quotes, this is actually a calculation involving two divisions. Try instead:

  my $dm = '08/14/04';
[download]

Hugo