my $substring = (split /\n/, $tmp)[-1];

##</code><code>##

my ($substring) = $tmp =~ /\n(.*)$/;