タグ整理のためにスクエアブラケット外すためのもの

tag_out.pl

#!/usr/bin/env perl

use strict;
use warnings;

open (FILE, 'buffer.txt');
my @lines = <FILE>;

for my $line (@lines) {
    if ($line =~ /\[(.+)\]\[(.+)\]/) {
        print "$1, $2\n";
    } elsif ($line =~ /\[(.+)\]/) { 
        print "$1\n";
    } else {
        print "$line";
    }
}

なんでelse以外では\nが必要だったのか自分で分からなかったけど、読み込んだファイルがすでに改行込みのデータだったから、ママで出力する最後だけ改行不要だったのか