my $html = do{ local $/ = undef; ; }; # musst nur entsprechend klammern my $r = [$html =~ /(.*?)<\/tt>/g ]; print Dumper $r; __DATA__ foo bar