--- trunk/lib/WebPAC/Input.pm	2006/12/06 23:42:20	783
+++ trunk/lib/WebPAC/Input.pm	2006/12/06 23:43:45	784
@@ -566,12 +566,17 @@
 
 sub _get_regex {
 	my ($sf,$from,$to) = @_;
+	if ($from =~ m/^regex:(.+)$/) {
+		$from = $1;
+	} else {
+		$from = '\Q' . $from . '\E';
+	}
 	if ($sf =~ /^\^/) {
 		return
-			's/\Q'. $sf .'\E([^\^]*?)\Q'. $from .'\E([^\^]*?)/'. $sf .'$1'. $to .'$2/';
+			's/\Q'. $sf .'\E([^\^]*?)'. $from .'([^\^]*?)/'. $sf .'$1'. $to .'$2/';
 	} else {
 		return
-			's/\Q'. $from .'\E/'. $to .'/g';
+			's/'. $from .'/'. $to .'/g';
 	}
 }