my $sep    = ',';
my $number = '12345678.27';

print MakeThousands($number), "\n";

sub MakeThousands {
  local $_ = reverse(shift());
  s/(\d{3})(?=\d)(?!\d*\.)/$1$sep/go;
  return scalar(reverse());
}