Select Code to Download

$_ = do { local $/; <> };
print "Match: $_" for /^\*+$ (.+?) ^\*+$/smxg;

#!/usr/bin/env perl

use 5.012;
...
**********************************
Or this either

Match:
You want the stuff in between the
asterisks, which is this sentence.
Match:
You probably want this too