关于行合并问题！

flora

=1
qwerrttt
millffvfrh
=2
gtyyllled
fgthkkol
vcrgooo
我想把上面格式的文件转化成一下格式的文件：
＝1
qwerrtttmillffvfrh
=2
gtyyllledfgthkkolvcrgooo
好久没有用perl了，很陌生，希望大家帮帮忙
多谢

怒剑狂啸

#!/usr/bin/perl
open (RFILE,"<filename1";
open (WFILE,">;filename2";
while (<RFILE> {
        chomp;
        if ($_=~/^=/)  {
                print WFILE "\n$_\n";
        } else {
                print WFILE $_;
        }
}
close RFILE;
close WFILE;