#!/usr/bin/perl

use strict;
use warnings;

my $html = q~<td style="width: 39px; padding-left: 17px;" onMouseover="return escape('GESUCHTER TEXT');"
<table celpadding=0 cellspacin........>~;

my @text = $html =~ /return\s*escape\('(.*?)'\)/isg;
print $_,"\n" for @text;