#!/usr/local/bin/perl

$evalme = q[
while(<>) {
        s/^ //;
                if(/^HISTOGRAM OF(\w+)$/) {
                print "in loop\n";
        }
];