while(my $l = <$fh>){
	$text .= "–".$l;
}