#!/usr/bin/perl

use warnings;
use strict;

$_ = "AA";

if (/^AA$/) {
	print "hallo";
} # if