Help for this page
use strict; ... @aTemp = grep{$_ =~ /B.*?y/} @aTemp; print join',',@aTemp;
use strict; use warnings; my @aTemp = qw(Fred Betty Barney Wilma); @aTemp = grep{$_ !~ /B.*?y/} @aTemp; print join',',@aTemp;
www.com | www.net | www.org
No recent polls found