#!/usr/bin/perl

use strict;
use warnings;

my ($field1,$field2) = ();

$_ = <DATA>;
($field1, $field2) = split(/;/);
print $field1,",",$field2;
__DATA__
hi;there


##</code><code>##

hi,there