Select Code to Download

my $data = qq[
  this is some text.
...
my @items = $data =~ /($sentence)/g;

print "[$_]\n" for @items;

my $float        = qr/\d+\.\d+/;
my $sentence     = qr/ (?: $float | $singlequoted | $doublequoted | [^
+.] )+ \. /xm;

$data .= "g = 9.8 m/s.";