while( my $line = <DATA> ) {
    while( $line =~ m/(\d{8})\s+(\d{5})/g ) {
        print "$1 $2\n";
    }
}