my $line = ( split "\n", $_ )[$wanted_line];

##</code><code>##

my ($line) = /^(.*?PATTERN.*?)$/ms;