Select Code to Download

$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";
}