#!/usr/bin/perl -wl
use strict;

while (<DATA>) {
    chomp;
    print "$_ matched" if /^[^(?:cat)]/;
}

__DATA__
cat dog
dog cat
frog cat dog
mouse dog cat
cat dog elephant