foreach (@lines) { s/\n$//; @items = split /$field_separator/; $item_str = $items[$field-1]; if ( $item_str =~ m/^$search_str$/i) { # We have a match, do something! } }