Error Evaluating Embedded Perl Source

syntax error at (eval 16) line 15, near "jpg link" (Might be a runaway multi-line // string starting on line 4) Unmatched right curly bracket at (eval 16) line 15, at end of line Unknown regexp modifier "/e" at (eval 16) line 23, at end of line Unknown regexp modifier "/y" at (eval 16) line 23, at end of line Unknown regexp modifier "/e" at (eval 16) line 23, at end of line Unknown regexp modifier "/y" at (eval 16) line 23, at end of line Unknown regexp modifier "/e" at (eval 16) line 23, at end of line Unknown regexp modifier "/y" at (eval 16) line 23, at end of line Unknown regexp modifier "/b" at (eval 16) line 23, at end of line Unknown regexp modifier "/e" at (eval 16) line 23, at end of line (eval 16) has too many errors.