#!/usr/bin/perl
$|++;   # flush output, program will fail w/o this
# simply return what we're fed, or "NULL\n" if input is empty
print ($_ eq "\n" ? "NULL\n" : $_) while <>;