use strict;
  my $file = $ARGV[0];
  open IN, $file or die "Can't open";
  my @file =<IN>;
  close IN;
m/\[(\S+)\s(\S+)\]/ ? print qq[$2 $1\n] :print qq[$_] for @file;