my @result;
foreach my $x (@cleared) {
	if ($x =~ /JOB::(.*)/){
		print $x, "\n";
		} 
		else {
				unless ($x =~ m/^Something/){
					print "~~Something~~", $x, "\n";
				} 
				else {
					unless ($x =~ m/^Something Else/){
					print "~~Something Else~~", $x, "\n";
					}
		}
	}
}