title: Start parsing line with number in perl
body: <p>I have the following file</p>
  
  <pre><code>something in this line  2
  something in this line  3
  something in this lin 4
  something in this line 5
  something in this line 6
  something in this line 6
  something in this line 7
  
  
  value   text   Read      Write
  ------------------------------------------------
  1        1      82090    62337
  2        2      27177    39042
  3        3      73       5708
  4        4      170      749
  </code></pre>
  
  <p>Now I need to parse the files and get the lines starting with a number. I am using $_ =~ m/^\d+/. But it doesnt seem to work. </p>
  
  <pre><code>#!/usr/bin/perl
  use strict;
  use warnings;
  
  my $data = do {local $/; &lt;INFILE&gt;};
  my $hash = ();
  
  foreach (split(/\n/, $data)) {
      print "printing $_\n";
      if ($_ =~ m/^\d+/) {
          my @temp = split('[\s\t]+', $_);
          $hash-&gt;{$temp[0]}-&gt;{read} = $temp[2];
          $hash-&gt;{$temp[0]}-&gt;{write} = $temp[3];
      }
  }
  return ($hash);
  </code></pre>