parse key/string pairs in xmlish markup

parse_xmlish.pl

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dump qw( dump );

# slurp in filehandle as one string
my $input = do { local $/; <DATA> };

my %data;

# parse out key/string pairs into hash
$data{ $+{key} } = $+{string} while $input =~ m{
    <key>    (?<key>    .+? ) </key> \s*
    <string> (?<string> .*? ) </string>
}xg;

dump(\%data);

__DATA__
<key>_name</key>
<string>Fibre Channel Domain 0</string>
<key>spfibrechannel_addressidentifier</key>
<string>04:0B:00</string>
<key>spfibrechannel_bus</key>
<string>spfibrechannel_pci_device</string>
<key>spfibrechannel_cablingtype</key>
<string>Fiber Optic</string>