#!/usr/bin/perl
use strict;
my $stripped = ".command";
my $cmd;
my $cmd_loc=index($stripped,".");
my $cmd_locend=index($stripped,chr(32));
if ($cmd_locend > 1) {
	$cmd=substr($stripped,$cmd_loc,$cmd_locend++);
} else {
	$cmd=substr($stripped,$cmd_loc);
}
print $cmd."\n";