#!/usr/bin/perl

use warnings;
use strict;

my $string = "Gernot;Havranek;Havi";
print $string, "\n";
my @array = join("\n", split(/;/, $string));
print @array;