use CSS::Tiny; my $string = do {local $/; }; my $css = CSS::Tiny->read_string($string); $\ = "\n"; print for keys %$css; __DATA__ .selector_name { margin-left: 1em; }