my $von  = '087';
my $bis = q{"};

while (<DATA>) {
        if (m/$von(.*?)$bis/) {
                print "Match $1 gefunden \n";
        }
}

__DATA__
"08749-6948452 W-Germany"
"086948452 W-Germany"