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