perl split command