open(FIN,">monster_file) || die "Cant open";
while(<FIN>) {
$line = $_;
.....
.....
}