#!/usr/bin/perl
use Tstregex;
 main( scalar @ARGV, \@ARGV );
