$mech->get( $page );
my @find_text = $mech->find_all_inputs(
        type  => 'text'
    );

for $boxes (@find_text) {
  if (length($boxes) > 100) {
     print #contents of the input box here?
  }
}