- #(undef, $translated) = ($html =~ m{(:\s+(<[^>]*>\s*)+)([^<\s]*)<}sx);
-
- # Tim@Rikers.org get's frustrated and splits this into steps:
- # 1) remove everything up to the first ':' in the text
- $translated =~ s/.*?:\s*</</s;
- # 2) remove any <attributes> till the first text
- $translated =~ s/(<[^>]*>\s*)*//s;
- # 3) remove the first trailing <attribute> and everything after it
- $translated =~ s/<.*//s;
-
- # look for contents of first textarea - not anymore cause > 40 char does not get one.
- #my ($translated) = ($html =~ m{<textarea[^>]*>+([^<]*)}sx);
- #&main::DEBUG("\"$translated\"\n===============\n");
-# ($html =~ m{<textarea[^>]*>
-# \s*
-# ([^<]*)
-# }sx);
-# ($html =~ m{<br>
-# \s+
-# <font\ face="arial,\ helvetica">
-# \s*
-# (?:\*\*\s+time\ out\s+\*\*)?
-# \s*
-# ([^<]*)
-# }sx);
+
+ $translated =~ s/<[^>]*>//sg;
+ $translated =~ s/ / /sg;
+ $translated =~ s/\s+/ /sg;
+ #&main::DEBUG("$translated\n===remove <attributes>\n");
+
+ $translated =~ s/\s*Translate again.*//i;
+ &main::DEBUG("$translated\n===remove after 'Translate again'\n");
+
+ $translated =~ s/[^:]*?:\s*(Help\s*)?//s;
+ &main::DEBUG("$translated\n===remove to first ':', optional Help\n");
+