Re^2: Magic 8 Ball

[suaveant]

( $a = $1 ) =~ s/\s+(8+\s+)*//g; # Remove center "hole" (from copy)

This line also removes whitespace from outside the ball.