perl three liner – 3-liner

perl -MFile::Glob -pi -e 'BEGIN{@list = File::Glob::bsd_glob("/usr/share/vim/vim63/colors/*.vim"); $i = int(rand( scalar @list)); $x = $list[$i]; $x=~s/.vim$//;$x=~s@/usr/share/vim/vim63/colors/@@;} s/colorscheme.*/colorscheme $x/;' .vimrc