use Data::Dumper qw/Dumper/;

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

my ( @text ) = $tabelle =~ /return escape\(\'(.*?)\'\)/isg;

print Dumper \@text;