sort < unsortedFile | perl theScriptAbove