convert fasta-formated sequence

#/usr/bin/perl -w


# Author : Lv Yuanda
# Date   : 2010-03-12
# Version: 2.0
# Discription: convert fasta-formated sequence.
# Usage  : perl fasta_convert.pl *.fasta


# Example:
# -------------------------
# >1
# gcagcatgcagctagcatg
# gtcgatcagctagctagct
# >2
# atagcatgcaggttttttt
# gtcgatcagctagctagct
# -------------------------


# result
# -------------------------
# >1
# gcagcatgcagctagcatggtcgatcagctagctagct
# >2
# gcagcatgcaggtttttttgtcgatcagctagctagct
# -------------------------




my $input=shift;
$/=">";
open(IN,$input) || die "cannot open the file, please check it!\n";
open(OUT,'>new.fasta');
while (<IN>) {
chomp;
if ($_=~/^(.+?)\n(.*)$/s) {
my $head=$1;
my $seq=$2;
$seq=~s/\n//g;
print OUT ">$head\n"."$seq\n"; 
}
}
close IN;