$line =~ /^(\d{4})(.*)$/ or die "unexpected content at line $.\n";
my ( $one, $two ) = ( $1, $2 );