Help for this page

Select Code to Download


  1. or download this
    $data =~ /reason/g or die for 1..3;
my ($rest) = $data =~ /.*/sg;
  2. or download this
    my ($rest) = $data =~ /^(?:.*?reason){3}(.*)/s;
  3. or download this
    (my $rest = $data) =~ s/^(?:.*?reason){3}//s;  # Fails poorly
  4. or download this
    my $rest = ( split /reason/, $data, 4 )[-1];