Select Code to Download

The regular expression:

...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

$line =~ s/Hi[^\n]*//;