#!/usr/bin/env perl

use 5.016;
use warnings;

use Benchmark 'cmpthese';
use POSIX 'locale_h';

say POSIX::setlocale(LC_NUMERIC);
say sprintf('%.2g', 3.14);
say sprintf('%.2g', 3.14) =~ s/\./,/r;
say sprintf('%.2g', 3.14) =~ y/./,/r;

cmpthese 0 => {
    sprintf => sub { my $str = sprintf('%.2g', 3.14); return $str; },
    y_sprintf => sub { my $str = sprintf('%.2g', 3.14) =~ y/./,/r; return $str; },
    s_sprintf => sub { my $str = sprintf('%.2g', 3.14) =~ s/\./,/r; return $str; },
};