foreach( $content =~ m#<meta (.*?)>#sgoi )
{
  my $name = $1 if( $_ =~ m#name\s*?=\s*?["'](.*?)["']#sgoi);
  my $cont = $1   if( $_ =~ m#content\s*?=\s*?["'](.*?)["']#sgoi);
}