Help for this page

Select Code to Download

Select or download this

my ($f) = $s =~ m{FREE: (\d+)} or die 'no FREE';