Select Code to Download

    if ( $filename =~ /([0-9])/ ) {
    ($startloc = $-[0]);
    ($alphaloc = $startloc + 4); }
    print "$startloc$alphaloc   ";