@list = (
  "123 : oain:b:okfbd",
  "",
  "456",
  "foo bar    : df a dsaf asdf",
  "111 :",
  ":  adf",
  "      "
);

$, = "\n";

print map{/(.*?)(\s*:|\s*$)/;$1||()}@list;