Select Code to Download

$errmsg =~ /^((?:\[.+?\]){3})(.*)/;

$errmsg =~ /^(?:\[.+?\]){3}(.*)/;

$errmsg =~ /^        # Start of string
             (       # Start match $1
...
              )      # End match $1
            (.*)     # Slurp up everything that's left
          /x;        # Done