One way would be using regular expressions to filter out lines you don't want:

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

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