$begin=<>;
chomp($begin);
$opdel='stop';
@bgn=split $opdel,$begin;
$del='end';
$rebegin=join $del, @bgn; #rebegin - большая строка, в котрой строки разделены словами "end"

@str=split $del, $rebegin;
$d='';

for ($i=0, $str[-$i+1] ne 0, $i++) {
	@lett=split $d, $str[-$i];
	@l=sort@lett;
	print ("@l");
}