print "'$_'" for split m[(?=^\w+?:)]sm, $data;