C:\WINNT\Fonts>perl -e"@x=qw/foo bar qux/; $_=@x[1]; print"
bar