#!/usr/bin/env perl undef $/; $text = <DATA>; @res = $text =~ /\b\d{12}\b/g; print "@res\n"; __DATA__ fhjgfghjk3456mm 735373653736 icasd 666666666666 111111111111