use LWP::UserAgent;

##</code><code>##

sub Jammer_hoor {

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

#filter out all the adds and links
$info =~ s/$nummer//gi;
$info =~ s/<.*?>//gi;
$info =~ s/\.\.\..*?\.\.\.//gi;
$info =~ s/\{.*?\}//gi;
$info =~ s/\(.*?\)//gi;
$info =~ s/table.*?://gi;
$info =~ s/1\ item.*?sp\;//gi;
$info =~ s/2\ item.*?sp\;//gi;
$info =~ s/\s+/ /gi;

#format for easy cut 'n paste
$info =~ s/Telnr: /\n/g;
$info =~ s/Naam: /\n/g;
$info =~ s/Adres: /\n/g;
$info =~ s/Plaats: /\n/g;
$info =~ s/Postcode: /\n/g;
$info =~ s/Fax: /\nfax: /g;

##</code><code>##

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

##</code><code>##

print "$info";