sub Last_N_Lines {
   my($String, $N) = @_;
   --$N;
   return ( $String =~ /^( (?:.*\n){$N} (?:.*\n|.+) )\z/mx )[0];
}