Update: Added 2 lines more and modified the var names as per svenXY!
$abc = 'i am going to split line1; and then line2; and then line3; and
+ assign to variables';
my ($no1,$no2,$no3) = (split/\;/,$abc);
my ($d,$e) = (split /\;/,$abc)[0,2]; # or anything [1,2]