package NFlag;

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

'to demerphq';

##</code><code>##

#!/usr/bin/perl -w
use strict;

print scalar reverse $_;

__DATA__
sdrawkcab
niaga
tub
retrohs