#!/usr/bin/perl -T

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

print CGI::header();

while(my $line = <DATA>){
    chomp $line;
    my @cols = unpack("A8A8A8A8",$line);
    print join(";",@cols),"<br />";
}

__DATA__
#2345678_2345678_2345678_2345678
Q4         12301  -52.89   1e-01