$mech->follow_link( text_regex => /select\sall/i ) if $mech->success();
$mech->find_link(text_regex=>/select/i);