Select Code to Download

AAA * BBB CCC * * "2000 01 00 00 00" "2004 01 00 00 00"
or
AAA * BBB "CCC DDD" * * "2000 01 00 00 00" *

*
BBB
...
*
2000 01 00 00 00
2004 01 00 00 00

#! /usr/bin/perl

...

local $" = "\n"; 
print "@r";

Use of uninitialized value in join or string at ./t9.pl line 13.
...... 6 more lines like this .....
...
00

00"