use strict;  
use warnings;  
use 5.012; 
 
my $test = 'employee name="Steve" employee phone="5551234123" employee address="1234 street"'; 
 
while ($text =~  / 
          \s*           #0 or more spaces 
          (             #start of $1 (whole field) 
             (          #start of $2 (field name) 
                [^=]+   #not an equals sign, 1 or more times 
             )          #end of $2 
             =          #an equals sign 
             "          #a double quote 
             (          #start of $3 (field value) 
                [^"]+   #not a double quote, 1 or more times 
             )          #end of $3 
             "          #a double quote 
          )             #end of $1 
                /gxms   #global matching flag plus standard xms 
) { 
 
      my($whole_field, $field_name, $field_value) = ($1, $2, $3); 
      say $whole_field; 
      say $field_name; 
      say $field_value; 
      say '*' x 20; 
} 
 
--output:-- 
employee name="Steve" 
employee name 
Steve 
******************** 
employee phone="5551234123" 
employee phone 
5551234123 
******************** 
employee address="1234 street" 
employee address 
1234 street 
********************