Select Code to Download

@list = (
  "123 : oain:b:okfbd",
...
$, = "\n";

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

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

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