$text =~ /(.*?)<whatever>/

##</code><code>##

$text =~ /^(.*?)<whatever>/

##</code><code>##

"xxyyyRyyy" =~ /(.*)R\1/