Help for this page

Select Code to Download


  1. or download this
    
#!/usr/bin/perl -w
...
$words =~ s/\b(t[^t]+t)\b/$1 eq "test" ? $1  : ''/ge; 
print $words;
# prints 'test Buffy testament Anya  Willow  Faith';
  2. or download this
    $words =~ s/\b(t[^t]+t)\b/
           my $temp = $1;
...
           }else{
             ''
           }/xge;
  3. or download this
    ($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print