foreach my $chapter (.....){
   ( $chapter =~ /5/ )  and ( $chapter = 5 );
   ......
   ......
}