I am trying to remove three columns with perl on a tabulated file.

Input file:

```
A B C D

```

Expected/new file:

```
A B C

```

I saw in other question how to remove only one column, the answer being:

```
perl.exe -na -e "print qq{$F[3]\n}" < input

```

How could I rewrite this to remove three columns?

Thanks