#!/usr/bin/perl

use strict;
use warnings;

use 5.010;

for (q(Name Vornamesip:0813893511@b2b.domain), q(0813893511sip:0813893511@b2b.domain)) {
    /(\w+ \w+)?sip:(\d+)\@.+$/;
    say '' . ($1 ? "$1 " : '') . $2;
}