Select Code to Download

($UUID) = map { (split (/"/, $_))[-1] } grep { /IOPlatformUUID/ } `ior
+eg -d2 -c IOPlatformExpertDevice`;
print $UUID;

#!/usr/bin/env perl 
use strict;
...

my ($UUID) = map { (split (/"/, $_))[-1] } grep { /IOPlatformUUID/ } '
+IOPlatformUUID = "foo"';
print "$UUID\n";