my $data='data-docAttribution="Rockstar Games, Inc."data-docConsumptionUri=""data-docId="com.rockstar.gta3ger"data-docTitle="Grand Theft Auto 3" data-docIconUrl="https://lh4.ggpht.com/"';

my %values;
while(lenght($data))
{
  if($data=~s/^.*?([^\s=]+)\s*=\s*"([^"]*)"\s*//s)
  { $values{$1}=$2; }
  else
  { last }
}

print $values{'data-docTitle'}."\n";