my first attempt. It's not the best, but what do you think?

#!/usr/bin/perl
#Pete_I
@ARGV                    =$0;$a=
[[{map                   {$i++,$_}
<>},q     {python?}      ,q
          [nope :)]
],      qw[perl is cool.]

],$_=$a                   ->[0]->[
0]->{                     ord($/)>
2},y                      d#ddd,$_
.=join                    ' ',map
{$a->[                    $_]}1..3; 
print
[download]