sub filter {
  
  local($str)=@_;
  local ($day,$month,$date)=split(" ",$str);
  return "$month $date";
    
}