#!/usr/bin/perl 
use strict;
use warnings;
use Data::Dumper;
use Carp;

use Benchmark;
timethese($ARGV[0] || 100, {
    quotes => sub {
        for (1..100) {
            my $x = "<img src=\"musterbild.jpg\" alt=\"Muster text\" border=\"0\">";
        }
    },
    qq1 => sub {
        for (1..100) {
            my $x = qq|<img src="musterbild.jpg" alt="Muster text" border="0">|;
        }
    },
    qq2 => sub {
        for (1..100) {
            my $x = qq~<img src="musterbild.jpg" alt="Muster text" border="0">~;
        }
    }
});