while (my $inp = <>) {
    $inp =~ s/^\s*(\w+)\s*$/$1/;
    given ($inp) {
       when ('AB') { AB() }
       when ('CD') { CD() }
       ... etc ...
       default {
        print "Command unknown: '$inp'\n";
    }
}