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

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