Question

I have a question in Perl:
Reverse the order of the first three words of each input line using the substitution operator. Leave the spacing unchanged, and print each resulting line.

How can I solve this?Any idea?Thanks in advance.

Answer 1

Try this

$line =~ s/^(\s*)(\w+)(\s+)(\w+)(\s+)(\w+)/$1$6$3$4$5$2/;

Not posting full code cus it seems to be homework or something like this.