#!/usr/bin/perl
use warnings; use strict;
#my $thingtothank = shift;
my $thingtothank = join ' ', @ARGV;
my $thankedthing = join '-', @ARGV;
# Really needs to contact a web service (and/or screenscrape dictionary.com) to syllablise the word and discard the first one.
if($thankedthing !~ /^a/) {
	if($thankedthing =~ /^h/) {
		$thankedthing =~ s/^h//;
	} else {
		$thankedthing =~ s/(.+)/a$1/;
	}
}
print "Thanks $thingtothank, th$thankedthing.\n";
#my $prefix = ($thingtothank =~ /^a/) ? '' : 'a';
#print "Thanks $thingtothank, th$prefix$thankedthing.\n";
