$string = "hello = 1234ab;cat;dog;4892";
$string =~ m#([^;]*?)\;([^;]*?);([^;]*?);#gsi;
print $3;
o/p:Dog