#!/usr/bin/perl

my $str2 = "Be careful what you wish for you just might get it ---------------test-----------results----------.";

my @words = split(/\b/, $str2); 
my $longestwordlength = 30;
my $longestword;

foreach my $word (split(/\s+/, $str2)) { 
  	if (length($word) > $longestwordlength) {
		$longestword = $word;
		print "\n$longestword\n\n";
	  }
 }