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

# or

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