perl -000ne 'print"$.. @{[(split)[1,3]]}\n"' data.txt