#!/usr/bin/perl
while(<stdin>)
{
 if( /^;/ ) # If comment
 {
	print;
	next;
 }
 # Match balanced square brackets
 $resq = qr{
	\[
	(
	 (?:
	 (?> [^][]+ ) # Non-parens without backtracking
	 &#124;
	 (??{ $resq }) # Group with matching parens
	 )*
	)
	\]
 }x;
 # Match balanced parens
 $reparen = qr{
	\(
	 (?:
	 (?> [^()]+ ) # Non-parens without backtracking
	 &#124;
	 (??{ $reparen }) # Group with matching parens
	 )*
	\)
 }x;
 # 1* and *, no parens
 s{1\*([a-zA-Z-0-9_-]+)}{1ドル\+}xg;
 s{\*([a-zA-Z-0-9_-]+)}{1ドル\*}xg;
 # Handle 1* and * which requires dealing with the possibility of 
 # balanced (...) pairs.
 s{1\*($reparen)}{1ドル\+}xg;
 s{\*($reparen)}{1ドル\*}xg;
 # Convert [...] to (...)?
 s{$resq}{\(1ドル\)\?}xg;
 s{$resq}{\(1ドル\)\?}xg;
 s{$resq}{\(1ドル\)\?}xg;
 # Convert {...} to (...)?
 s/{([^}]*)}/(1ドル)?/g;
 # Add change = to <-
 s/^(\S+) = /1円 <- /;
 print;
}
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://www.digitalkingdom.org/~rlpowell/hobbies/lojban/grammar/abnf2peg.pl.txt">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://www.digitalkingdom.org/~rlpowell/hobbies/lojban/grammar/abnf2peg.pl.txt" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>