my @arr = '01795647343;01774536433' =~ m/(01[0-9]{9}|\+[0-9]{12}|00[0-9]{13,14})/g;

#testweise ausgeben
print join '#',@arr