use strict;
use warnings;

my $text = q~abc;123;ab\;12;zzz;yyy;~;

my @fields = split m{(?<!\\);}, $text;