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