#!/usr/bin/perl -ni.bak
if ($_ =~ /^\d/) {
  print $_;
}