#!perl
open(FH,'baza.txt');
open(RES,">nomera.txt");

while (<FH>) {
  if(/(\d{11})/) {
    print RES $1."\n";
  }
}