while ($inline = <INPUT>) {
 #INPUT defined as variable#
 @firstline = split(/\s+/, $inline); #firstline of array defined by split of white space into variable inline#
 
$hms1 = $firstline[2];
$hh1 = int ($hms1);
$mm1 = int (60*( abs($hms1) - abs($hh1) ) );
$ss1 = 3600*abs($hms1) - 3600*abs($hh1) - 60*abs($mm1);

$hms2 = $firstline[3];
 $hh2 = int($hms2);
 $mm2 = int(60*( abs($hms2) - abs($hh2) ) );
 $ss2 = 3600*abs($hms2) - 3600*abs($hh2) - 60*abs($mm2);

$obid = "NGC 188 - $firstline[1]";    
 write;

} 
close INPUT;


format STDOUT = 
@>>> @<<<<<<<<<<<<<<<<<<< @# @# @#.###  @# @# @#.## @  @<<<<<<<<
$firstline[1], $obid, $hh1, $mm1, $ss1, $hh2, $mm2, $ss2, $cfo, $status 
.