#!/usr/bin/perl -wT
use strict;
my &#36s = q{Syntaxhighlighting};
print &#36s, ' ist '. join "", reverse('l','o','o','c');
# definitiv!