It can be done with a single regular expression ($string =~ /^(?=.*?abc).*?xyz/i), but you're better off using two (as dragonchild suggested) for readability.