/^>>/ and do { print "error message\n"; next };

##</code><code>##

print("error message\n"), next if /^>>/;
# or
(print "error message\n"), next if /^>>/;