in reply to How do I write a regex which allows meta-quoting?
s/(^[(?:([^\\|\A)\\(\\{2})*\#)]*)(.*)/$1/
(?<!)
$c = "\#";
$m = "\\";
while(<IN>) {
chomp;
split /\Q$c\E/;
$_ = $_[0];
next if(/\A\s*\Z/);
$string = $_;
for($i = 1; $i <= $#_; $i++) {
$_ = $_[$i - 1];
m/(.)((\Q$m\E){2})*\Z/;
if("$1" eq "$m") {
$string .= "$c" . $_[$i];
} else {
last;
}
}
}
|
|---|