Telefonummern mit Perl trennen und in vcards schreiben!

....
function isTelNr($telnr) {
$number = str_replace(' ', '', $telnr);  
$fqtnpattern = "/^((\+|0\d)\d{2})?(\((\d{2,5})\)|(\d{2,5})(\/|\-)?)(\d{3,9})(\-?(\d{1,3}))?$/";  
if(preg_match($fqtnpattern, $telnr, $match)) { 
        # hier im OK-Fall kann es dann losgehen 
        # mit Ersetze "0049" am Anfang durch "D-"....etc  
        # oder erst ein preg_replace("/[^\d\+]/", "", $telnr); ? 
        return true;

}    else {  
      return false;  
  }

#!c:{{comment_single_line_double_slash:0}}

use strict;

## tel. nr. einlesen
open(TEL,"<tel.txt") or die "Kann Telefonliste nicht öffnen: $!";  
my @nummern = <TEL>;
close(TEL);
chomp(@nummern);


foreach(@nummern) {

  ## zeilen leer setzten wenn kommentar oder nur buchstaben
  $_ = "\n" if $_ =~ m/^#/ig || $_ =~ m/[a-zA-Z]+/;  
  next if $_ =~ m/^\s$/;

  ## llerzeichen aus nummern entfernen
  $_ =~ s/ //gi;

  ## auf alles trigger und ändern was 0049... is
  if($_ =~ m/^({2})([49][\d-]*)/gi) {
    $_ = "+".$2;  

    ## auf alles triggern und ändern was 0[1-9]... is
      } elsif($_ =~ m/^({1})([1-9]{1})([\d-]*)/gi) {
        $_ = "+49".$2.$3;  
        }
}

chomp(@nummern);

## nummer in neues file schreiben
open(TELNEU,">tel_neu.txt");  
print TELNEU join("\n", @nummern);  
close(TELNEU);

exit(0);