Select Code to Download

use LWP::UserAgent;

sub Jammer_hoor {

if ( $nummer !~ m/\b\d{3}-\d{7}\b/ ) {

if ( $info !~ m/Naam:/g ) {

$info =~ s/\s+/ /gi;

#filter out all the adds and links
$info =~ s/$nummer//gi;
...
$info =~ s/Plaats: /\n/g;
$info =~ s/Postcode: /\n/g;
$info =~ s/Fax: /\nfax: /g;

for ($info) {
    #filter out all the adds and links
...
    s/<.*?>//g;
    ...
}

print "$info";