Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

michaeld's scratchpad

by michaeld (Monk)
on Jun 05, 2004 at 12:15 UTC ( [id://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";