#!/usr/bin/perl -wl

($test = "tt") =~ /^\w(\w+)?\w+/ && print ($1) && print "'$test' authorized";