my $CLIP= Win32::Clipboard();
my @text = $CLIP->GetText();
print @text;
print "Done\n";
while(my $line=$CLIP->GetText()){
my $stringLng = length($line); #Get string Length
my $area = index($line, "released"); # GET POSITION OF WORD RELEASED
my $f_string = substr($line,0, $area); #Remove...