my ($size)   = $vmsize =~ /VmSize:\s+(.*)$/;    

##</code><code>##

  (my $vmsize) = grep {/VmSize/} @size;
   my (undef,$size) = split "\t",$vmsize;