foreach  my $v (split("\r",$buffer))
{
  print STATION $v."\n";
}