for ( split(/;/,$J) ) {
	print ($&e(&$s($_));
}