Select Code to Download

#!/usr/bin/perl -w
use strict;
...
   $_="undef" unless defined $_;
   print "'$_',\n";
}

Don't check for undefined matches
...
'NORTH',
'undef',
'AV',