#!/usr/bin/perl

use strict; use warnings;

sub do_this() { print "doing this.\n" }
sub do_that() { print "doing that.\n" }

sub parsecmd (@) {
	my $_ = join ' ', @_;
	if (
		m{
			^!         # строка начинается с !
			([^\s]+)   # собирается один или больше непробелов, и складируется в $1
			\s*        # пробелы или ничего...
			$          # ...пока не кончится строка
		}x
		) {
		if    ($1 eq 'do_this') { do_this() }
		elsif ($1 eq 'do_that') { do_that() }
		else { print "something wrong.\n" }
		}
	else { print "doesn't match.\n" }
	}

parsecmd(@ARGV);