To remove the ICQ-flowers, add this in the "change line" part of the script:

# ICQ remove
if ($pod_line =~ m/mirabilis/)
{
$pod_line =~ s/<IMG.{90,120}r=0>//gi;
}

The same idea can also be used to remove anything else...