Use

while(<$fh_big_file>) {
  print if (/$regex/o .. /^END_OF_BLOCK/);
}
[download]

to avoid recompilation of the regex.