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

##</code><code>##

s/^\s*//;

##</code><code>##

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

##</code><code>##

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