you'll want to consider something like

m!^/(.*?)/!
[download]

You should follow aufrank's advice, or use split. For example:

my $DRIVENAME = (split /\//,$ENV{PWD})[1] ;
[download]

Or, if you want to keep on with awk, you should just put in your backticks:

With -F/ you are stating that the separator is slash, and you are printing the second field (the first -that is: what comes before the first slash- is empty)

Anyway, I strongly descourage you to do so: it's a task that Perl can easily accomplish without spawning any external process, so why do it?

Ciao!
--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->made($love) ;
}

thanks