use strict;
use warnings;

my $sum = 0;

while (my $line = <DATA>) {

  chomp $line;
  print "Original data:[$line]\n";
  my ($target,$variables) = split (/;/ , $line);
  print "\t$target\n";
  print "\t$variables\n";
}

__DATA__
planet;World|Earth
planet;celestial body|moon
psychology;therapy|sociology
psychology;humanity|sociology

##</code><code>##

Original data:[planet;World|Earth]
	planet
	World|Earth
Original data:[planet;celestial body|moon]
	planet
	celestial body|moon
Original data:[psychology;therapy|sociology]
	psychology
	therapy|sociology
Original data:[psychology;humanity|sociology]
	psychology
	humanity|sociology