diff --git a/stackcollapse-recursive.pl b/stackcollapse-recursive.pl
index 7aad41d8..9eae5459 100755
--- a/stackcollapse-recursive.pl
+++ b/stackcollapse-recursive.pl
@@ -37,9 +37,9 @@
 
 while(<>) {
   chomp;
-  if(/^(.*)\s([0-9]*)/) {
-    my @stack  = split(/;/, $1);
-    my $value  = $2;
+  my ($stack_, $value) = (/^(.*)\s+?(\d+(?:\.\d*)?)$/);
+  if ($stack_) {
+    my @stack  = split(/;/, $stack_);
 
     my @result = ();
     my $i;