use Regexp::Common;

if( $string =~ / ( $RE{num}{real} ) /x ) {
  print "string enthaelt eine Kommazahl: $1\n";
}