#!/usr/bin/perl

use strict;
use warnings;

my @tests = (
    'Tester',
    'Test ist das',
    '(Test)was',
    'Test.',
    'Test,',
    'Test
    ',
    'Test&',
    'Test(',
    'Test123',
    '8Test-er',
);

for my $test ( @tests ){
    my $val = $test =~ /Test\b/ ? 'yes' : 'no';
    print sprintf "%13s: %s\n", $test, $val;
}