echo $x | perl -ple 's/.+?(\d+)\s?GB.*/$1/'