Select Code to Download

my $s = "foo. bar. foobar. foo bar.";
my $p = get_nsentences($s,2);  # $p = "foo. bar.";
...
    for($i=$_[1]||1;$i>0 && length($source_txt);$i--) { $source_txt =~
+ s/([^\.]+\.)/(($ret_txt.=$1)&&"")/e; }
    return $ret_txt;
}

print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x1234
+5678)))