C:\_32>perl -Mstrict -MDevel::Peek -le "my $arg = q(">&STDOUT"); Dump $arg;"
>& was unexpected at this time.

C:\_32>perl -Mstrict -MDevel::Peek -le "my $arg = q("^>^&STDOUT"); Dump $arg;"
SV = PV(0x6bcd2c) at 0x57b30c
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0x58056c ">&STDOUT"\0
  CUR = 8
  LEN = 10
  COW_REFCNT = 1

C:\_32>perl -Mstrict -MDevel::Peek -le "my $arg = qq(">&STDOUT"); Dump $arg;"
>& was unexpected at this time.

C:\_32>perl -Mstrict -MDevel::Peek -le "my $arg = qq("^>^&STDOUT"); Dump $arg;"

SV = PV(0x6ccd2c) at 0x1e30fe4
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0x1e6f47c ">&STDOUT"\0
  CUR = 8
  LEN = 10
  COW_REFCNT = 1

C:\_32>perl -Mstrict -MDevel::Peek -le "my $arg = q(\">&STDOUT\"); Dump $arg;"
>& was unexpected at this time.

C:\_32>perl -Mstrict -MDevel::Peek -le "my $arg = q(\"^>^&STDOUT\"); Dump $arg;"

SV = PV(0x55cd2c) at 0x650274
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0x690f5c "\">&STDOUT\""\0
  CUR = 10
  LEN = 12
  COW_REFCNT = 1

C:\_32>perl -Mstrict -MDevel::Peek -le "my $arg = qq(\">&STDOUT\"); Dump $arg;"

>& was unexpected at this time.

C:\_32>perl -Mstrict -MDevel::Peek -le "my $arg = qq(\"^>^&STDOUT\"); Dump $arg;
"
SV = PV(0x34cd34) at 0x1d8afbc
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0x1d905ac "\">&STDOUT\""\0
  CUR = 10
  LEN = 12
  COW_REFCNT = 1

C:\_32>