create an optimized regular expression (regex/regexp) from list of strings

opt.pl

#!/usr/bin/perl -w

use feature qw(say);
use strict;

use Regexp::List;

my @s = <STDIN>;
my $l  = Regexp::List->new;
say $l->list2re(@s);

opt2.pl

#!/usr/bin/env perl # -*- mode: cperl; indent-tabs-mode: nil; cperl-indent-level: 4 -*-

use feature qw(say state);
use warnings;
use strict;
use utf8;

use Regexp::Assemble;

my $r = Regexp::Assemble->new();
while (<>) {
  $r->add( "$_" );
}
say $r->as_string;

ropt.sh

##  echo foo bar baz bif boo | xargs -n1 echo | ropt ==> (?:b(?:a[rz]|if|oo)|foo)
alias ropt="perl -MRegexp::Assemble -ne 'BEGIN { \$r = Regexp::Assemble->new(); } \$r->add(\"\$_\"); END { print \$r->as_string }'"