Select Code to Download

#!/usr/bin/perl
my $x="My name is VC";
...
if ($x =~ $r) {
  printf "Matched from %d to %d: '%s'\n", $-[0], $+[0], $1;
}