current window $title =~ /^aaa/ ==> tag A3;
current window $title =~ /^aa/  ==> tag A2;
current window $title =~ /^a/   ==> tag A1