fork download
copy 
  1. #!/usr/bin/perl 
  2. #use strict;
  3. #open(DATA, "./input.txt");
  4.  
  5. while(<>) {
  6.         my $line = $_;
  7.         chomp($line);
  8.         if ( $line =~ /^<li>/ ) {
  9.                 $line =~ s/<em>(.*)<\/em>(.*)/$1/g;
  10.                 print "[" . $line . "]\n";
  11.         }
  12. }
Success #stdin #stdout 0s 3564KB
comments (?)
stdin
copy 
<li><em>01 &#8211; Chapters 1-4</em> &#8211; 00:14:36 <br />
<li><em>02 &#8211; Chapters 5-8</em> &#8211; 00:10:52 <br />
<li><em>03 &#8211; Chapters 9-14</em> &#8211; 00:19:16 <br />
<li><em>04 &#8211; Chapters 15-18</em> &#8211; 00:13:30 <br />
<li><em>05 &#8211; Chapters 19-22</em> &#8211; 00:17:01 <br />
<li><em>06 &#8211; Chapters 23-25</em> &#8211; 00:16:44 <br />
<li><em>07 &#8211; Chapter 26</em> &#8211; 00:10:35 <br />
stdout
copy 
[<li>01 &#8211; Chapters 1-4]
[<li>02 &#8211; Chapters 5-8]
[<li>03 &#8211; Chapters 9-14]
[<li>04 &#8211; Chapters 15-18]
[<li>05 &#8211; Chapters 19-22]
[<li>06 &#8211; Chapters 23-25]
[<li>07 &#8211; Chapter 26]
https://ideone.com/AkJtIo
language:
Perl (perl 5.28.1)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!