in reply to match with exception

maybe you searching something like that:

$str !~ /xyz/; do_something unless $str =~ /xyz/; do_something unless $str =~ /^xyz$/;