$line =~ /\bh(?:e(?:l(?:l(?:o)?)?)?)?\b/i; #### $line =~ /\bh(?:e(?:l(?:l(?:o)?+)?+)?+)?+\b/i;