# ...

use String::Trim;

while(<>) {
    trim;

    given($_) {
        when("abc") {
            say "Got 'abc'!";
        }
        when("cmc") {
            say "Got 'cmc'!";
        }
        when("uep") {
            say "Got 'uep'!";
        }
    }
}