$foo =~ s/(\d\d)\.(\d)/func(\@vars)/ge; # enthält dann $1 und $2