Help for this page

Select Code to Download


  1. or download this
    while ((say "Input template string:") && ($string = <>) ) {
    while ((say "Input pattern:") && ($pattern = <STDIN>)) {
  2. or download this
    while ((say "Input template string:") && defined(my $string = <>) ) {
    while ((say "Input pattern:") && defined(my $pattern = <STDIN>)) {