Select Code to Download

use warnings;
use strict;
...
my $re = presuf(@strs);
print $re, "\n";
# (?:aa(?:aaa(?:aa)?)?|bb(?:bb|b)?|ccc(?:cccc?)?|[abc])