package NFlag;

use Filter::Simple sub {
    s/^([^#].+)/LINE: while (<DATA>) {\n$1\n}\n/ms;
};

'to demerphq';