$ perltidy pm_11105453.pl $ vi pm_11105453.pl <<< I then used vi to add some print statements to the result >>> $ cat pm_11105453.pl.tdy @t = map { $_ * ( $_ + ( $_ - 1 ) ) % 4 } ( 2, 3, 4 ); print "T=(", join(", ", @t), ")\n"; # What do we have in @t? $i = chr(0x34); $five = chr(55); print "I=$i, FIVE=$five\n"; # What's in $i and $five? print "$i$five " . ( @t[0] + @t[1] ) . ( $i / 2 ) . "." . @t[0] . chr(0x35) . ( @t[0] * 3 + 1 ) . "\n"; @x = map { ( srand(1) * $_ ) % 9 } ( 28, 34, 57 ); print "X=(", join(", ", @x), ")\n"; # What do we have in @x? print @x[0] . ( @x[0] * 2 ) . ( @x[0] * 2 * 2 / 2 ) . " " . chr(48) . ( @x[2] * 3 ) . "." . ( @x[2] + 1 ) . chr(0x30) . ( ( @x[1] % 4 ) - 3 ) . "\n"; $ perl pm_11105453.pl.tdy T=(2, 3, 0) I=4, FIVE=7 47 52.257 X=(1, 7, 3) 122 09.400