[問題] 字串比對的問題

[kyshiao (天氣真好阿)]

我希望用PERL來做字串SEARCH,
想做到的功能是找出A1的字串並且排除掉CHINA
找出A1直接用~m/A1/即可
但是如何濾掉包含CHINA的字串呢?

字串內容如下
2001-01-02 A1 CHINA
2010-01-03 A1 TAIPEI
2011-02-03 A2 USA

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 60.251.138.79
推 abliou:=~m/A1\s+CHINA/