package DemoData; $VERSION = '0.01'; use Filter::Simple; FILTER_ONLY data => sub { s/(^|[ \t]+)(\S)/\u$2/gm }, all => sub { print }
package DemoData; $VERSION = '0.01'; use Filter::Simple; FILTER_ONLY data => sub { s/(^|[ \t]+)(\S)/\u$2/gm }, all => sub { print }