# 1 $x = 'a' . $y . $z->[1]; # 2 $x = join q(), scalar(chr 97), $y, (@$z)[1], ''; [download]
In reply to Re^3: Question about regex performance by choroba in thread Question about regex performance by ted.byers