#!/usr/bin/perl

($test = "test") =~ /^(.*?)t/ && print $1;