% cat 753064
$post_message =~ s%\Q[URL=\E([\?\%\:\/a-zA-Z0-9_\-\.]+)\Q][img]\E([\?\
+%\:\/a-zA-Z0-9_\-\.]+)\Q[/img][/URL]\E%gix;

% perl -Mdiagnostics 753064
Substitution replacement not terminated at 753064 line 1 (#1)
    (F) The lexer couldn't find the final delimiter of an s/// or s{}{
+}
    construct.  Remember that bracketing delimiters count nesting leve
+l.
    Missing the leading $ from variable $s may cause this error.

Uncaught exception from user code:
        Substitution replacement not terminated at 753064 line 1.
 at 753064 line 1
[download]

The error message says it all, if you want to substitute, you should tell perl, whats your substitution is.

-- Frank

Oops, just saw that! Changed it, still getting errors :(

It seems to be from this line still, cos if I comment it out - the rest of the script works fine:

$post_message =~ s|\Q[img]\E([\?\%\:\/a-zA-Z0-9_\-\.]+)\Q[/img]\E|[img]$1[/img]|sig;
(the above is just a more basic version of what I'm trying, to see if I can try and track down whats going on)

Driving me nuts :(

Cheers

Andy

Ah, looks like you've stumbled into a perl parsing trap:

s||$1[/|

This code tries to interpolate the @1 array, the index starts with a slash, parsed as the begin of a matching pattern, but missing the closing slash, that's why you get the Search pattern not terminated error. Escaping the [ with a backslash should make all things fine.

-- Frank