#!/usr/bin/perl -w
use utf8;

while(<>)
{
	chomp;
	next if $_ eq "";
	#next if $_ =~ /Note/;
	my $count = 0;
	$count++ while(s/^[0-9]+[. ][ ]?//);
	$_ = "\t$_" while(--$count > 0);
	print $_,"\n";
}