#!/usr/bin/perl
use strict;
use warnings;

for (`parted /dev/sdb print`) {
  next if /^Model/; # Don't print model line
  print;
}