Print the second column after the first column and so on.

[bandanasc]

I am trying to edit a file that contains:
Time Column 1 Column 2 Column 3.
I need to print column 2 after column 1like this:

Time Column1
Column 2
Column 3

 

[CodeMonkeyJ]

Just work through the file line by line, split each line, and print them out however you want.

#!/usr/bin/env perl

use warnings FATAL => 'all';
use strict;

sub main {
        my @args = @_;
        my $file = shift(@args);
        open(my $fh, '<', $file) || die($!);
        while (my $line = <$fh>){
                chomp($line);
                my @c = split(/ /, $line);
                print("$c[0] $c[1]\n$c[2]\n$c[3]\n");
        }
        close($fh);
        return;
}

unless (caller){
        exit(main(@ARGV) || 0);
}