s/abc\w+\s+\w+(?:, *\w+)\s+//;  # match and remove unwanted initial content

##</code><code>##

s/.*\s(\w+\s+\w+)$/$1/;  # match desired end content and remove everything before it

##</code><code>##

$_ = substr( $_, rindex( $_, 'yuio jklh' ));