my $re = qr{
^            # hier geht es los
3            # eine "echte" drei
[ ]          # ein "echtes" Leerzeichen
4            # eine "echte" vier
$            # hier hoert es auf
}x;