use strict; use warnings; use Text::Textile; my $textile = Text::Textile->new; my $code = <<'CODE'; bc.. Test bc. bc. CODE print $textile->process($code);