Help for this page

Select Code to Download


  1. or download this
    my $s = "one of his best tracks. It's good. His other notew";
$s =~ s/([.?!]).*$/$1/;
...

__OUTPUT__
one of his best tracks.
  2. or download this
    my $s = "one of his best tracks. It's good. His other notew";
$s =~ s/([.?!])[^.?!]*$/$1/;
...

__OUTPUT__
one of his best tracks. It's good.