Select Code to Download

$string = 'my name is mister smith';

...
  print "surname is $2";
  #  $1 contains the whole thing, $2 just the surname
}

$text='Learning Perl? http://www.perlmonks.org/ <this> is the place';
...
                        qq(<a href="$1">$1</a>)
                     !gex;
print $text;

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print