#!/usr/bin/perl -w
use strict;

my $example = '[URL=http://img207.imageshack.us/my.php?image=dsc03598vt7.jpg][IMG]http://img207.imageshack.us/img207/2964/dsc03598vt7.jpg[/IMG][/URL]';

print "$example \n";
$example =~ s/\[\/*URL.*?\]//g;
print $example;

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

[IMG]http://img207.imageshack.us/img207/2964/dsc03598vt7.jpg[/IMG]