use strict;
use warnings;

my $fc = <<FC;
#4
r2 !
#5 
r3 !
r7 !
r10 !
#8
r0 ! 
r1 !
FC

print "$1\n$2\n" while $fc =~ /^(#\d+)[^#]*^([^#\n]+)$/gm;