use strict;
use warnings;

my $first = shift(@ARGV);
my $second = shift(@ARGV);
my $third = shift(@ARGV);

print "$first\n";
print "$second\n";
print "$third\n";

##</code><code>##

D:\argv_test.pl I like code
 I like code


D:\

##</code><code>##

C:\>argv_test.pl I like code
I
like
code

C:\>