Help for this page

Select Code to Download


  1. or download this
    $str="taaaaaaaa";
$str=~/(ta+)/; print "$1\n";
$str=~/(ta+?)/; print "$1\n";
  2. or download this
    $str =~ m/[^<story>].*<image>(.*)<\/image>.*?[^<\/story>]/s;
 ## <- w/o the "?" should work
  3. or download this
    $str=~s/\n//g; 
$str =~ m%<story>.*</story><image>(.*)</image>%;