new file: at.plx

	new file:   matchtest.plx
	new file:   rhyming.plx
	new file:   wordlist.txt

at.plx

@@ -0,0 +1,5 @@
+#!/usr/bin/perl
+use LWP::UserAgent;
+    my $ua  = LWP::UserAgent->new;
+    my $response = $ua->get('https://us-amazon.icims.com/jobs/submittal');
+    print $response->content, "\n";

matchtest.plx

@@ -0,0 +1,18 @@
+#!/usr/nin/perl
+# matchtest.plx
+use warnings;
+use strict;
+
+$_ = q("I wonder what the English is for 'yes' and 'no'," he thought.);
+# Tolkien, Lord of the Rings
+
+print "Enter some text to find: ";
+my $pattern = <STDIN>;
+chomp($pattern);
+
+if(/$pattern/){
+        print "The text matches the pattern '$pattern'.\n"
+} else {
+        print "'$pattern' was not found.\n";
+}
+

rhyming.plx

@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+#rhyming.plx
+use warnings;
+use strict;
+@ARGV = ("wordlist.txt");
+my $syllable = "ink";
+my $syllable1 = "b";
+while (<>){
+	#print if /$syllable$/;
+	print if /^$syllable1$/;
+}

wordlist.txt

@@ -0,0 +1,5 @@
+blink
+bobolink
+brink
+crink
+clink