use 5.010; 
$_ = "test 123;Ox;DEAD BEEF;ppp";

@MyGroups = ($_ =~ m/([^;]+)/g);

say for @MyGroups;