Well, this code don't work anymore.
It has to be changed to:

# ICQ remove
if ($pod_line =~ m/mirabilis/)
{
$pod_line =~ s/<IMG.+?>//gi;
}