Select Code to Download

use Modern::Perl;

...
END

say $data =~ /(?=.*HIGH)(?=.*LRR)(?=.*LOW)/s ? 1 : 0;

1