#!/usr/bin/perl use strict; use warnings; # Config-Datei my $config = '/path/to/config.txt'; # Oeffne Datei zum Lesen, bei Fehler brich ab open my $fh, '<', $config or die $!; # Lese jede Zeile ein while( my $line = <$fh> ) { # teile Zeile an Tabulator und nimm 4. Element my ($url) = (split /\t/, $line)[3]; # uebergib URL an wget my $content = qx{ wget $url | grep "String to check" }; print $content } close $fh;