perldoc -m Inline


##</code><code>##

    perl -ne '/^=/../^=cut/ or print' file