{
		baselen=length("/pdbase/pub/")
		padlength = length($2)
 		newname = substr($2, baselen+1)
		newname = "./"newname  
                padlen = 50 - length(newname)
                padding = ""
                while (padlen > 0)
                {
                    padding = padding" "
                    padlen--
                }
		getline
                print newname padding $0
                }