my @ary = qw[<name> <Name> <NaMe> ];
for (@ary) {
    print;
    s/<name>/japh!/i;
    print " $_\n";
}
__DATA__
<name> japh!
<Name> japh!
<NaMe> japh!