for ($var) {
/cat/ && do { ...; last };
/dog/ && do { ...; last };
warn "$var Nothing matched\n";
}