Help for this page
while ($allfile =~ /^(\d+) /mg) { ... for (@objects) { $allfile =~ s/^ +$_\n//m; } print $allfile
for (@objects) { $allfile =~ s/^ *(foo)? +$_\n//mn; }
www.com | www.net | www.org
No recent polls found