Select Code to Download

sub substitute{ 
    my $s = shift; 
...

print substitute( $_ ) for 'A message {d3} of {d4}';;
A message 924 of 5054

[14:37:57.99] C:\test>junk
               Rate    nar_func    mca_func toolic_func    buk_func
...
mca_func     3287/s         34%          --        -55%        -70%
toolic_func  7231/s        195%        120%          --        -35%
buk_func    11125/s        354%        238%         54%          --