if( $string =~ /
  [+-]? # optional + oder -
  (\d+) # gefolgt von einer oder mehreren ziffern (moegichst vielen), speichern in $1
  \.    # gefolgt von einem punkt
  (\d+) # gefolgt von mehreren ziffern (moeglichst vielen), speichern in $2
 /x ) {

  print "$string enthaelt eine Kommazahl: $1.$2\n";

} # if