#!/usr/bin/perl
while (<>) {
        print if m/(\d+)\D+(\d+)/;
        print "$1\n$2\n";
}