string printen der einen string enthält

[seth]

hi roman!

bei mir klappt das:

open(DAT,'<template.htm');
 my @lines=<DAT>;
 foreach(@lines){
  while($_=~/<!-- ([$@&%].+?) -->/){$_=$`.eval($1).$'};
  print;
 }
close(DAT);

mehr zu regexp:
http://www.perldoc.com/perl5.8.0/pod/perlretut.html#Extracting-matches

prost
seth