my $re = presuf( qw{ a about above across 
                     after afterwards } );
# yields:
a(?:bo(?:ut|ve)|cross|fter(?:wards)?)?