perl -lwe 'print qq( $]) =~ s/ /v/r'