open( FH, $f ) or die;

while( my $str = <FH> ){
	
	$str =~ s/\r\n//g;
	print ">$str<\n";
}
close(FH)