Help for this page
use strict; use warnings; my $fn="abc/def.xyz"; $fn =~ s/($<=[.])[^.]*$/txt/; print "$fn\n";
$fn =~ s/[^.]*$/txt/;
www.com | www.net | www.org
No recent polls found
