sub Last_N_Lines {
    my ($String, $N) = @_;
    my @ret;

    open(my $IN,  "<", \$String);
    while (<$IN>) { push(@ret, $_); shift(@ret) if $. > $N }

    return join "", @ret;
}