Select Code to Download

use strict;
use warnings;
...
  my $substring = $2;
  print "$substring\n";
}

/hello.*?=(\s*.*?;\s*){$semiColon}(\s*.*?;\s*)/i