Du musst einfach nach dem Namen bliebig viele Zeichen matchen, dann das Space, dann die Zahl (eingefangen) und das GB. So zum Beispiel:

($name, $size) = $zeile =~ / \b Name:   \s+ (\w+) .* \s+ (\d+) \s+ GB /x

Mehr Infos z.B. in perlre oder perlretut