Select Code to Download

my $pattern = qr/
  S[s|p]           # match the link label
...
  [^(?:O.{1,2}:    # don't match objects
  \d+\:\w+(?:\.\w)*)]*\)
/xm;