#!/usr/bin/env perl -l

use strict;
use warnings;

print join ' ' => (split)[1, 0, 3, 2] while <DATA>;

__DATA__
a b c d
e f g h
i j k l

##</code><code>##

b a d c
f e h g
j i l k