### 文字列置き換えから一時的に退避し、後に復帰する使い方と対象テキストの例:
my $num_of_escaped_string;
my %escaped_string;
sub escape_string {
my ($strp) = @_;
my $btag = '\t_HTML_START_\n'; # 開始マーク
my $atag = '\t_HTML_END_\n'; # 終了マーク
$num_of_escaped_string = 0;
$$strp =~ s!$btag(.*?)$atag!
$escaped_string{++$num_of_escaped_string} = $1,
sprintf("\x5\x13%d\x3", $num_of_escaped_string)!gsmxe;
}
sub unescape_string {
my ($strp) = @_;
$$strp =~ s|\x5\x13(\d+)\x3|$escaped_string{$1}|g;
}
escape_string(\$str);
$str =~ s|<|<|g;
unescape_string(\$str);
「<a href="hohoho">hehehe</a>」と書くと以下のようになります。chalow で採用予定です。あまり使わないとは思いますが、HTML や
> hehehe >