my $float        = qr/\d+\.\d+/;
my $sentence     = qr/ (?: $float | $singlequoted | $doublequoted | [^.] )+ \. /xm;

$data .= "g = 9.8 m/s.";