Select Code to Download

#!/usr/bin/perl
use strict; use warnings; use autodie;
...
    fsr  => q[ @l2 = t_fsr(@l1)  ],
    fser => q[ @l2 = t_fser(@l1) ],
};

$ perl chain_transform.pl
         Rate  fea   fa fser  fsr   fs
...
fser 499367/s 151% 131%   -- -21% -23%
fsr  628278/s 216% 190%  26%   --  -4%
fs   651987/s 227% 201%  31%   4%   --