Help for this page

Select Code to Download


  1. or download this
    $test = 'the quick brown fox'; 
$_ = 8; 
if ( $test =~ m/^.*(??{print "$_\n"})/ ) { 
    print "**$_**\n"; 
}
  2. or download this
    the quick brown fox
the quick brown fox
...
the quick brown fox
the quick brown fox
the quick brown fox
  3. or download this
    $test = 'the 1st quick brown fox'; 
$_ = 8; 
if ( $test =~ m/^.*(??{print "$_\n"})/ ) { 
    print "**$_**\n"; 
}
  4. or download this
    the 1st quick brown fox
the 1st quick brown fox
...
the 1st quick brown fox
the 1st quick brown fox
**8**