$ perl -MO=Deparse -e ' @x = x() = 5; '
@x = (x() = 5);