#! /usr/bin/env perl

use 5.014;
use warnings;
use experimentals;
use Regexp::Optimizer;

my $builtins;
say Regexp::Optimizer->new->optimize($builtins);

BEGIN {
    $builtins = qr{
            fork
        |   endgrent
        |   endhostent
        |   endnetent
        |   endprotoent
        |   endpwent
        |   endservent
        |   getgrent
        |   gethostent
        |   getlogin
        |   getnetent
        |   getppid
        |   getprotoent
        |   getpwent
        |   getservent
        |   time
        |   times
        |   wait
        |   wantarray
    }x;
}