Select Code to Download

#!/usr/bin/perl

...
    $text =~ tr{\x0b}{\n};
    printf qq{%s -> ***%s***\n}, $style, $text;
}

Heading 1 -> ***Heading 1 text***
Heading 2 -> ***Heading 2 text***
Normal -> ***Normal***