perl -lwe '$v = qq( $]); $v =~ s/ /v/; print $v'
v5.012004