$foo ->[2];                  # Space before or after ->
  print $_->{bar};             # Only two non-space chars before ->
  $sum += $_->[0] for @array;  # Only three non-space chars after ->

##</code><code>##

  perl -ne '/(\S{3,80}->\S{5,80})/;print $1,"\n"'