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