use Benchmark qw {:all};
use 5.016;

local $| = 1;

use POSIX qw /locale_h/;
use locale;
print POSIX::setlocale(LC_NUMERIC) . "\n";

my $x;
$x = sprintf "%.2g", 3.14; 
print "$x\n";
$x = sprintf ("%.2g", 3.14) =~ y/,/./r; 
print "$x\n";
$x = sprintf ("%.2g", 3.14) =~ s/,/./r; 
print "$x\n";


cmpthese (
    -3,
    {
        sprintf   => 'use strict; use warnings; my $x = sprintf ("%.2g", 3.14)',
        y_sprintf => 'use strict; use warnings; my $x = sprintf ("%.2g", 3.14) =~ y/,/./r',
        s_sprintf => 'use strict; use warnings; my $x = sprintf ("%.2g", 3.14) =~ s/,/./r',
    }
);