my ( $wantedx, $wantedy ) = ( $wanted =~ /($decimal).*?($decimal)/ ); [download]
In reply to formatting numerical output by bilbozilla