diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index a225d09a..ea078b57 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -348,3 +348,43 @@ pidwait_add(pid)
 void 
 pidwait_remove(pid)
 	int pid
+
+char *
+parse_special(cmd, data="", flags=0)
+	char *cmd
+	char *data
+	int flags
+CODE:
+	RETVAL = parse_special_string(cmd, NULL, NULL, data, NULL, flags);
+OUTPUT:
+	RETVAL
+
+#*******************************
+MODULE = Irssi	PACKAGE = Irssi::Server
+#*******************************
+
+char *
+parse_special(server, cmd, data="", flags=0)
+	Irssi::Server server
+	char *cmd
+	char *data
+	int flags
+CODE:
+	RETVAL = parse_special_string(cmd, server, NULL, data, NULL, flags);
+OUTPUT:
+	RETVAL
+
+#*******************************
+MODULE = Irssi	PACKAGE = Irssi::Windowitem
+#*******************************
+
+char *
+parse_special(item, cmd, data="", flags=0)
+	Irssi::Windowitem item
+	char *cmd
+	char *data
+	int flags
+CODE:
+	RETVAL = parse_special_string(cmd, item->server, item, data, NULL, flags);
+OUTPUT:
+	RETVAL
diff --git a/src/perl/common/module.h b/src/perl/common/module.h
index 11a60fe7..23cbad63 100644
--- a/src/perl/common/module.h
+++ b/src/perl/common/module.h
@@ -14,6 +14,7 @@
 #include "ignore.h"
 #include "settings.h"
 #include "masks.h"
+#include "special-vars.h"
 
 #include "chatnets.h"
 #include "servers.h"