Select Code to Download

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

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