Select Code to Download

$inrecord =~ s/D/E/g;
@info = split(' ', $inrecord);

$my_x = $info[4] + 0;
$my_y = $info[5] + 0;