my $item; foreach $item (@values) { last if $item =~ /Some Complicated Regex/; } do_something_with( $item );