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