Select Code to Download

#!/usr/bin/env perl

...
   }
   say "";
}

With grep:
Element a is not there
...
Element abcd is there
With given-when:
Element abcd is there