fork download
  1. #!/usr/bin/perl
  2. # your code goes here
  3.  
  4. use POSIX;
  5.  
  6. my $text = "here are more string words START OF INFORMATION SECTION some other stuff";
  7.  
  8. print "Original String: $text\n";
  9.  
  10. # this should provide me with the specific text between my two boundary words
  11. $text =~ /\b(START\b(.*?)\bSECTION)\b/;
  12.  
  13. print "New String: $1\n";
Success #stdin #stdout 0.02s 7084KB
stdin
Standard input is empty
stdout
Original String: here are more string words START OF INFORMATION SECTION some other stuff
New String: START OF INFORMATION SECTION