Help for this page
#!/usr/bin/perl ... 012345678 456782011 456782013
while (<DATA>) { chomp; ... } warn "rejected input: $_\n"; }