my ( $wantedx, $wantedy ) = ( $wanted =~ /($decimal).*?($decimal)/ );