文頭・文末にタグを入れる

> Perlを訳も分からないままいじくりまわしてテキスト処理に使っているのですが、
> どうしてよいものやら分からずお知恵を拝借下さい。
> テキストファイルをドロップレットで処理しているのですが、タグテキストとして
> 使っているので文章全体の頭と尻に宣言文“<TAG>～</TAG>”を入れたいのです。
>
> while(<>){
> &MacPerl'option_i('.元');
> #テキストの処理省略～～～～～～～
> print;
> print "<＼/TAG>";　　
>
> 最後の【print "<＼/TAG>";】で尻はOKなんですが、
> 頭の【print "<TAG>";】をどこに突っ込んでもうまくいかないです。

while(<>) {
&MacPerl'option_i('.元');
#テキストの処理省略～～～～～～～
$text .=$_;
}
print "<TAG>";
print $text;
print "<\/TAG>";

これでどうでしょうか。ループの中で、テキストを$text にいった
ん貯めておき、ループを抜けてから、まとめて出力するという方法
をとってみました。

MacPerl？の実行環境整えられなかったので動作確認していませんの
で、外していたらすみません。

# &MacPerl'option_i('.元'); の位置がそこでいいかが激しく
# 気になる

ＣＬさんありがとうございます。
すみません、環境を書いてなかったですね。MacJPerl 5.2.0r4 J1です。
バッチリ成功しました。変数に貯めておいてからまとめて処理すれば
良かったんですね…とても勉強になりました。ありがとうございます。
ループの中に突っ込んだら全部の行頭につくのは当たり前ですね（汗

※whileループの中に【&MacPerl'option_i('.元');】はやっぱり変ですよね？
　ループの外（手前）に出してみた事があるんですが、正常に
　動作しなかったです…先輩が作ったものを改変して使っているので
　謎だらけです