local undef $/;
my $text = <DATA>;
my (@meta_data) = $text =~ m[(<meta[^>]+>)]ig;
foreach my $tag (@meta_data) {
my (@results)= grep {defined && /[^'"]/} $tag =~ m!.*?['"]?(\w+)['"]?=(?(?=['"])(['"]))(.+?)(?(2)\2|\b)!isg;
my $ref = {@results};
foreach (keys %$ref) {
print "$_ - $ref->{$_}\n";
}
}