#!usr/bin/perl
use strict; 
use warnings; 
# 848903

my @strings = ("Supervisor UID: plbaerr4",
				"UID: dlsmith3",
				"Peon UID: jklmn2");

for my $string(@strings) {
	if ( $string !~ /^Supervisor \w+/ && $string =~ /UID: (\w+)/ ) {
		print "$1 \n";
	} else {
		print "No match in $string \n";
	}
}