use Regex::PreSuf;
die presuf(split /\|/, 'new|old|number|start|simple|cross|heavy|die|exit'),$/;
__END__
(?:cross|die|exit|heavy|n(?:ew|umber)|old|s(?:imple|tart))