$fc = '#4 
r0 !
r1 !
r2 !
#5
r3 !
r4 !
r5 !
';

##</code><code>##

#4
r2 !
#5 
r5 !

##</code><code>##

while ($fc =~ /#(\d+)\s+(\S+\s+\S+\s+)*)/g ) {
	$time = $1; $list = $2;
	@rlist = split /\n/, $list;
	$ofc .= "#$time\n$rlist[$#rlist]\n";
}