my $grammar = <<EOGRAMMAR;

export_line:	stock_symbol	COMMA   # 1
		stock_name	COMMA2  # 2
		stock_code	COMMA3  # 3
		trade_side	COMMA4  # 4
		trade_volume	COMMA5  # 5
		floating_point	COMMA6  # 6
		tc                      # 7
{ print "got \@item\n"; }
    | <error>
EOGRAMMAR

Why does '@' have to be escaped? And whatever reason
that may be, why doesnt it apply to '\n'?