Select Code to Download

# split line into @data, or whatever
$data[1] =~ s/^([A-Z])\w*( \w+)$/$1.$2/g;