diff --git a/stackcollapse-instruments.pl b/stackcollapse-instruments.pl
index 00ecfb32..fb017b9a 100755
--- a/stackcollapse-instruments.pl
+++ b/stackcollapse-instruments.pl
@@ -14,7 +14,7 @@
 <>;
 foreach (<>) {
 	chomp;
-	/\d+\.\d+ms[^,]+,(\d+),\s+,(\s*)(.+)/ or die;
+	/\d+\.\d+ms[^,]+,(\d+(?:\.\d*)?),\s+,(\s*)(.+)/ or die;
 	my $func = $3;
 	my $depth = length ($2);
 	$stack [$depth] = $3;