YOTA Contest
exc1-band-all		# multiplier 1 (age per-band, regardless of mode)
NN-see-scoring-sub-below # scoring (last case irrelevant)
-   				# multiplier 2
1					# exchange fields
3					# length of exchange field 1
0					# length of exchange field 2
0					# length of exchange field 3
0					# length of exchange field 4
[0-9]				# regex for every single character in exchange field 1
[0-9]+			# regex for complete valid exchange field 1
[0-9]				# regex for every single character in exchange field 2
					# regex for complete valid exchange field 2
[0-9]				# regex for every single character in exchange field 3
					# regex for complete valid exchange field 3
[0-9]				# regex for every single character in exchange field 4
					# regex for complete valid exchange field 4
QSO: %s %s %s %s %-13s %-3s %-6s %-13s %-3s %-6s %s
freq mode date utc mycall rsts exc1s call rst exc1 stn
YOTA-!MODE!
exc1s
AGE:
CQ TEST MYCALL MYCALL TEST          # F1
5NN EXC1S                           # F2
TU MYCALL                           # F3
MYCALL                              # F4
HISCALL                             # F5
AGE?                                # F6
?                                   # F7
BEGIN SCORE
if ($exc1 > 25) { if ($cont ne 'EU') { $score = 2 } else { $score = 1} } 
elsif ($exc1 >= 22) { $score = 10 }
elsif ($exc1 >= 17) { $score = 11 }
elsif ($exc1 >= 12) { $score = 12 }
else { $score = 13 }
BEGIN CALLINFO
@items = 12..80;