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];