Select Code to Download

my $re = presuf( qw{ a about above across 
                     after afterwards } );
# yields:
a(?:bo(?:ut|ve)|cross|fter(?:wards)?)?

         Rate    reg    pre presuf
reg    33.1/s     --   -34%   -59%
pre1   50.4/s    53%     --   -37%
presuf 80.6/s   144%    60%     --