my @results = $string =~ /(cde)/g; # Also check out perldoc -f quotemeta if cde is actually a $var