Help for this page

Select Code to Download

Select or download this

( my ($num) = ( $id =~ /(\d+)/ ) ) or next;