Select Code to Download

$complex_re = /^($ip) ($host) ($msg)$/ if (
    $ip   = /\d+\.\d+\.\d+\.\d+/,
    $host = /[\-\.\w]+/,
    $msg  = /.*/
);

my $complex_re = eval {
    my $ip   = qr/\d+\.\d+\.\d+\.\d+/;
...

    return /^($ip) ($host) ($msg)$/;
);

                 Rate    with eval without eval
with eval    116279/s           --          -5%
without eval 121951/s           5%           --