m/(regexp)(?{ print $-[0] )(?!)/;