Select Code to Download

print if m{
            ^                 # begins with
...
            (?<! ~ )          # but no '~' at the tail
            $                 # to the end
          }ix;