Help for this page
$fc = '#4 r0 ! r1 ! ... r4 ! r5 ! ';
#4 r2 ! #5 r5 !
while ($fc =~ /#(\d+)\s+(\S+\s+\S+\s+)*)/g ) { $time = $1; $list = $2; @rlist = split /\n/, $list; $ofc .= "#$time\n$rlist[$#rlist]\n"; }