if ($_ !~ /cr\d$/) {
	print "Didn't match.\n";
}