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 }