Format: grep(EXPR,LIST)# Searching for patterns in a list@list = (tomatoes, tomorrow, potatoes, phantom, Tommy);$count = grep( /tom/i, @list);@items= grep( /tom/i, @list);print "Found items: @items\nNumber found: $count\n";