#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";

my $von  =  087;
my $bis = ";
 @ARGV = ('text.txt');

while (<>) {
if (m/($von$bis)/o) {
print "Text gefunden in: ", $ARGV, "::$1<br/>\n";
}}