if (length ($request{'find'}) > 0 ) { $line =~ s/$request{'find'}/$request{'replace'}/; }