#!/usr/bin/perl -p
s/^([^ ]*) *([^ ]*)/$2 $1/;   # swap first two words
