#!/usr/bin/perl
(q x x x 10) =~ /(?{ print "hello\n" })(?!)/;