Help for this page

Select Code to Download


  1. or download this
    >perl -wMstrict -le
    "my $s1 = 'foo not *UN*known but bar is';
    ...
     print qq{all after: '${^POSTMATCH}'};
    "
    all after: ' but bar is'