[id:lethevert:20051213:p2] PCREはそれとして、この問題は、PerlのOne-Linerかつ１正規表現でやってみようかと思います。 とりあえず、今のところできている部分。（見やすいように展開） #!/usr/bin/perl $_=join '', <stdin>; while( s/\(\) |\(\s* (\d+) (\s*\|</stdin>…