#!/usr/bin/perl
use strict;
use warnings;
use Win32::GuiTest qw(FindWindowLike GetWindowText);

my @windows = FindWindowLike(undef, "", "Notepad++");

for (@windows) {
    print "$_>\t'", GetWindowText($_), "'\n";
}