#!/usr/bin/perl -w

while (my $line = <STDIN>) {
    if ($line =~ m/(.*coords=.)([0-9]*),([0-9]*),([0-9]*),([0-9]*)(.*)/) {
	print $1, $2*2.085,",",$3*2.085,",",$4*2.085,",",$5*2.085,$6,"\n";
	
    }
}