print if m{
            ^                 # begins with
            test              # 'test'
            \d+               # a number
            .*?               # nothing or anything else
            (?<! ~ )          # but no '~' at the tail
            $                 # to the end
          }ix;