#!perl -c
use re 'debug';

/at/||/bt/||/ct/||/dt/||/et/||/ft/||/ght/;
/at|bt|ct|dt|et|ft|ght/;
/[abcdef]t|ght/;
/(?:[abcdef]|gh)t/;
/(?:a|b|c|d|e|f|gt)t/;

__END__