#!/usr/bin/perl
use warnings;
use strict;

my $text = <<EOT;
xxx ; xxx { xxx }
xxx ( xxx ; xxx'
EOT

$text =~ s/(?=;)/\n/g;

print $text;