print ref join (":", $searchresult)

##</code><code>##


print ref $searchresult
  ? "Located Part Number: @{ $searchresult }\n"
  : "Your Part Number ($part) Rev ($rev) could not be found....\n";