|
|
|
| Just another Perl shrine | |
| PerlMonks |
michaeld's scratchpadby michaeld (Monk) |
| on Jun 05, 2004 at 12:15 UTC ( #361536=scratchpad: print w/replies, xml ) | Need Help?? |
use strict; my @in = ("#set a koekoek\n","#set b vogel\n","#set c bird\n","#set d arend\n","#set e vulture\n"); map { $_ =~ s/^#set c .*/#set x exbird/; $_ =~ s/^#set a .*/#set y exkoekoek/; } @in; print "@in\n"; |
|