in reply to Simple perl one-liner for transforming text files
perl -000ne 'print"$.. @{[(split)[1,3]]}\n"' data.txt [download]