#!/usr/bin/env perl use 5.014; use warnings; while (<>) { s!\s*/\*.*\*/\Z!!; # comments s!/\*.*!! .. s!.*?/\*!! and next; # multiline comments s/^\s*//; # indentation and empty lines s/\h+/ /g; # alignment s/:\K\h//; # separators print; }