Find a word in a string

#
# 'Fred' somewhere in $i:
#
if( $i =~ /Fred/){ ...}