sub Last_N_Lines {
    my ($str, $n) = @_;
    
    return join "\n", grep {defined} (split "\n", $str)[-$n .. -1];
}