Help for this page
use strict; use warnings; ... FC print "$1\n$2\n" while $fc =~ /^(#\d+).*?^.*?^(.*?)$/gms;
#4 r0 ! #5 r3 !