$_ = "10001 LONG RECORD\n
BEGIN RECORD A, CODE B, TABLE C END \n
NEXT\n
STANDARD DATA 1 BEGIN CODE A, RECORD B END NEXT\n
SHORT RECORD BEGIN TABLE B END NEXT\n
STANDARD DATA 2 BEGIN CODE C, RECORD D, FILE END;";