print STDERR qq|\n\n---------------------------OLD post was: $post_message\n\n---------------------------|;

		$post_message =~ s|\Q[URL=\E([^]]+)\Q][IMG]\E([^]]+)\Q[/IMG][/URL]\E|$2|sig;

		print STDERR qq|\n\n---------------------------new post was: $post_message\n\n---------------------------|;
<code>
<br /><br />
All that does, is print out:
<br /><br />
<code>---------------------------OLD post was: sdfsdfsdfsdf
[img]http://images.voyageforum.org/photos/thumbs/0/73780-04_34_2---computer-keyboard_web.jpg[/img]


[URL=http://img207.imageshack.us/my.php?image=dsc03598vt7.jpg][IMG=http://img207.imageshack.us/img207/2964/dsc03598vt7.jpg][/IMG][/URL]
[signature]

---------------------------

---------------------------new post was: sdfsdfsdfsdf
[img]http://images.voyageforum.org/photos/thumbs/0/73780-04_34_2---computer-keyboard_web.jpg[/img]


[URL=http://img207.imageshack.us/my.php?image=dsc03598vt7.jpg][IMG=http://img207.imageshack.us/img207/2964/dsc03598vt7.jpg][/IMG][/URL]
[signature]

---------------------------