Select Code to Download

my $start = 1+index $_,q(");
die "No quoted string found" unless $start;
$_ = substr $_,$start;
my $stop = index, $_, q(");
$_ = substr $_,0,$stop;

s/^\s*//;

my $start = 1+nindex $_," ";

my $start = 1+nindex $_,"[\t ]";