Part of your problem is your attempt to escape the semicolons. They're NOT end_of_statement markers to Perl or its regex engine when inside a quoted string. You may also want to read about using '!' as a negation.