my ($result) = map /(something)/, split /\n/, $content;

##</code><code>##

my ($result) = $content =~ /(something)/;