my $str = qq(/extendMe );
$str =~ m,"?(/.*)"?,;
if (defined $1) {
   print "matched=$1\n";
}

$perl regex.pl 
matched=/extendMe