$month=.0.$month;

##</code><code>##

  my $s = 'abc';
  $s = .0.$s;
  print $s, "\n";

##</code><code>##

  my $n = .0;
  print $n, "\n";

##</code><code>##

  print .0, "\n";