Converting Adblock plus filters to Epiphany's Adblock format

I am not happy with epiphany's standard Adblock filter because it does not catch many ads. On the other hand, there is a great Firefox extension called Addblock plus that catches almost everything (official site is here). So, I decided to take the filter from Adblock plus and convert it to the form that can be fed to epiphany.

Unfortunately, it looks like it is not possible to convert every rule. The script below just skips the rules that can't be converted (or, at least I do not know how to convert them).

Applying the script to the filter from http://easylist.adblockplus.org/morpeh+easylist.txt one gets the blacklist and the whitelist. Just put them in

~/.gnome2/epiphany/extensions/data/adblock/

I have noticed that for a long blacklist the GUI of Adblock takes more time to open. But this should be acceptable so far, since we do not want to open it very frequently.

And here is the script for those who are interested.

 blacklist
#     or cat list.txt | convert --white > whitelist
##########################################################

use strict;
use Getopt::Long;

# if $white is set to true, then the whitelist is printed
# otherwise print the blacklist
my $white = 0;
GetOptions('white' => \$white);

# the first line is a header, skip it
<>;

while (my $line = <>){
	chomp $line; # remove trailing EOL
	next if $line =~ /^!/; # if it is a comment, go to the next line
	if ($white){
		next if not $line =~ s/^@@//; # next if it is not a white list
	} else {
		next if $line =~ /^@@/; # next if the line represents a white list
	}
	print "$_\n" if $_=convert($line);
}

sub convert {
	my $pattern = shift;
	
	# if the filter cannot be converted due to some reasons, return undef
	return undef if $pattern =~ /#|\||\$|\^/;
	
	# first, quote all special symbols
	$pattern =~ s/(\.|\-)/\\\1/g;
	
	# add the start and the end matchers if necessary
	$pattern =~ s/^(?!\*)/\^/;
	$pattern =~ s/(?