#!/usr/bin/perl
use strict;
use warnings;

my $file = "deinedatei.txt";
my $doctitle;

open (IN, '<', "$file") || die ("Could not open $file: $!");
 while (<IN>) {
  if (/data-docTitle=\"(Grand Theft Auto 3)\"/) {
  $doctitle = $1;
  last;
  }
 }
close IN || die ("Could not close $file: $!");