DB<110>  @a= ('USE 28-000009 FLASH CARD, IODUO, 1280GB, MLC, FUSION IO, FS3-204-641-CS-0001' , 'Disk - HD 500GB 2.5 SATA (00X3Y)', 'Disk - HD 500.31415926GB 2.5 SATA (00X3Y)')
 => (
  "USE 28-000009 FLASH CARD, IODUO, 1280GB, MLC, FUSION IO, FS3-204-641-CS-0001",
  "Disk - HD 500GB 2.5 SATA (00X3Y)",
  "Disk - HD 500.31415926GB 2.5 SATA (00X3Y)",
)

  DB<111> print / (\d+(?:\.\d+)?)GB\W/,"\n" for @a
1280
500
500.31415926